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AAAAAAAAAAAAAAA 
AAR AAA 
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RAR AAA 
AAA AAA 
bhh ABA 
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Ztitle "RMSSIDK = Analyze Things for Prolog 3 Indexed Files’ 
module rms3idx 
ident="V04-000") = begin 


38 


1! 


. (SOR eeeeeeeeeeeeeeeeeeeeeeeketeteeeeeeeereeeeeetereeeteneeeHeneereneeeerere 


 S,oCooocoo 
oO 
oO 


33 
-_ 


Add suppers for recovery unit items in the primary data 

and SIDR records. This required a new routine to calculate 

the congene of the various parts of a primary data record, 
y 


. 


since that calculation has become diabolica complex. 


v03-006 PCA1001 Paul C. Anogrostopeules 11-0ct-1982 
Add support for prologue 3 SIDRs. 


. & ® 
O.ve 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
pore : :* ALL RIGHTS RESERVED. * 
. ® 
pole 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
gots 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
id EA : .* TRANSFERRED. * 
'@ e 
0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
334 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT « 
eo 1 : :* CORPORATION. * 
'@ * 
$098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Oose : * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Mil & 
0026 1 !* a 
44 : alkaline eaten initia aaa 
00 : 
94 1 
0030 1 !+¢ 
oth : } Facility: VAX/VMS Analyze Facility, Analyze Things for Prolog 3 
0033 1 | Abstract: This module is responsible for analyzing various structures 
0034 1! in prolog 3 indexed files. Those routines that are common 
0035 1! to prolog 2 and 3 can be found in RMSZ2IDX. 
0036 1! 
0037 1! 
0038 1 ! Environment: 
0039 1! 
re : } Author: Paul C. Anagnostopoulos, Creation Date: 26 June 1981 
004 i Modified By: 
0044 1! v03-007 PCA1011 Paul C. Anagnostopoulos 1-Apr-1983 
0045 1! Change the message prefix to ANLRMS$_ to ensure that 
0046 1! message symbols are unique across alT ANALYZEs. This 
944 : is necessitated by the new merged message files. 
0049 v03-006 PCA1007 Paul C. Anagnostopoulos 10 Feb 1983 
1: 
1: 
& 
1! 
1! 
1} 
1! 
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re 58 1! v03-005 PCA0100 Paul C. Anagnostopoulos 1-0ct-1982 

9 S39 1! Remove code that displayed the last duplicate bucket 

60 ,§ pointer in tng bucket trailer. That pointer was 

2 one : : not used in V5, but the code was left in. 
88 068 1/ v03-004 PCA0060 Paul Anagnostopoulos 99-Mar-1982 
64 064 1! Changed the way the index record statistics were 
o? : 5 : } calculated to make them parallel to the data record. 
67 006? 1: v03-003 PCA0051 ; Paul Anagnostopoules 26-mar-1982 

68 0068 1! The statistics callback that specified the nominal 

+4 494 : length of the data record did not include the key. 

71 0071 1: v03-002 PCA0004 Paul Anagnostopoulos 16-Mar-1982 

7 Lf 1! The key significance count is no longer present in 

t th : the data bucket trailer. 

75 807 1: v03-001 PCA0003 Paul pnognestapeyi se 16-Mar-1982 

76 0076 1! A bug in ANLSSRECLAIMED BUCKET _HEADER caused it to 

77 0077 1! sometimes think the bucket header was not at the 

8 th : beginning of the bucket. 
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sbttl "Module Declarations’ 


g 


Libraries and Requires: 


library ‘lib’; 
require ‘rmsreq'; 


Table of Contents: 


Ww 


SSSLESSESEANES 


forward routine 
anl$3bucket_header 
anl$ 


oO 
—_ 


reclaimed bucket_header, 


4 


anl$3index_record, 

anl$3primary_data record, 
anl$3tormat_data_bytes: novalue, 
calculate_data_record_info: novalue, 
anl$3sidr_record, 

anl$3sidr_pointer; 


sssseeee 


; External References: 


external routine 

anl$bucket, 
anl$bucket_callback, 
anl$check_flags, 
anl$data_callback, 
anl$format_error, 
anl$format_flags, 
anl$format_hex, 
anl$format_line, 
anl$format_skip, 
anlSindex callback, 
anl$reclaimed_bucket_callback; 


external 

anl$gb_mode: byte 

anl$gl_fat: ref block, bytel, 
anl$gw_prolog: word; 


SESSSSSSSSS SOTO SSS RS 


AWAAIWIAIPIRPEPIPOPURPININININYD 2 = OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 ' 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: Own Variables: 
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Rsbttl *ANLSSBUCKET_HEADER = Print and Check a Bucket Header’ 
Functional Description: : 

This routine is responsible for gun and checking the contents 
of the bucket header in prolog 3 indexed file buckets. 


Formal Parameters: 


w 


The address of a BSD ty Ba the complete bucket. 


33534 


We update it to the next bucke . 
key_id The alleged ID of the key descriptor for this bucket. 
dups A boolean, true if duplicates allowed for this key. 
level The alleged level of this bucket. 
report A boolean, true if we are to print a report. 


indent_level The indentation level of the report. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: ; : : ~ 
True if there is another bucket in this chain, false otherwise. 


Side Effects: 


geessessesseeeee 


$s 


ee ee ee ee ee ee ee 


AMO OONAUESWN “OO OONOUS WN —-O0@ 


global routine anl$3bucket_header(the_bsd,key_id,dups,level,report, indent_level) = begin 


bind 
b = .the_bsd: bsd; 


WN SO DONA UE WHO OONO UE WN OOOO EW 


own 
index_flags_def: blockES, Long) initial( 


uplit byte (Zascic "BKTS$V_LASTBKT'), 
yor ts byte (Zascic "BKTS$V_ROOTBKT') 


data_flags_def: block(2,long] initial( 
uplit byte (Zascic "BKT$V_LASTBKT) 
local 


sp: ref blockt byte}. 
tp: ref blockl,byteJ; 


! We know the bucket header fits in the bucket. Set up a pointer to the header 
! and a pointer to the trailer, which is the last 8 bytes. 


sp = -bibsdst butptr): 
tp = .bl{bsd$l_endptr) - 8; 


a ke ee ed ae ed wd wd od od 


o 

o 

~s 

oO 
PROPIPONPINIPNINANININYPININININPINININININININININININID 8 to 0 0 oo 
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9 
0 
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5 
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CKET_HE 
! Now 
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we can format the header if requested. 


if .report then ( 


! Start with a nice header, containing the VBN. 


anl$format_line(3,.indent_level,anirms$_bkt,.b{bsd$l_vbn]); 
anl$format_skip(0); 


! Format the check character. 
anl$format_Line(0,.indent_level+1,anirms$_bktcheck,.splbkt$b_checkchar]); 
! Format the key ID. 
anl$format_line(0,.indent_level+1,anirms$_bktkey,.splbkt$b_indexno]); 

! Now the VBN address sample. 
anl$format_line(0,.indent_level+l,anirms$_bktsample,.sp(bkt$w_adrsample]); 
! Now the free space offset. 
anl$format_line(0,.indent_level+l,anirms$_bktfree,.sp(bkt$w_keyfrespc]); 
! Now the next available record ID. 
anl$format_line(0,.indent_level+1,anirms$_bktrecid3,.spCbkt$w_nxtrecid]); 
! Now the next bucket VBN. 
anl$format_line(0,.indent_level+l,anirms$_bktnext,.spCbkt$l_nxtbkt]); 

! Now the level number. 
anl$format_lLine(0,.indent_level+l,anirms$_bktlevel,.sp[bkt$b_level]); 

! Now the control bits. 


anl$format_flags(.indent level+1,anirms$_bktflags,.sp{bkt$b_bktcb], | 
(if .spCBkt$b_level] eqli 0 then data_flags_def else index_flags_def)):; 


! Now the VBN List pointer size, but only if this is an index bucket. 


if .spCbkt$b_level) gtru 0 then : 
anl$Tormat_line(0,.indent_level+1,anirms$_bktptrsize,.sp(bkt$v_ptr_szJ*2); 


! Now we are going to format the stuff at the end cf the bucket. 
! There is only the VBN free space offset if this is an index bucket. 


anl$format skip(0); 
if .splbkt$b_level) gtru 0 then 
anl$format_line(0,.indent_level+1,anirms$_bktvbnfree,.tpl4,0,16,0]); 


Page 
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41 074 ! Now we are going the check the contents of the bucket header. This is a 


Be Be Be ee Be Be Se Be Oe Oe Ge Fe Se Se Be FF Ss Fe Ge Se Be Ge FH SH Se SH Se Se Se Se SH Ss Se Se FF Se Se FF Ss Se SH Ss SH Ss Se Se Se Ss Os Se OH os OH Ss Oe Os oe 


4 74 : totrly rigorous test, but doesn’t check anything that requires looking 
re o ! at other structures. 
$2 731 : Make sure the check byte is present in the last byte of the bucket. 
4 7 § if .spCbkt$b_checkchar] nequ ch$rchar(.blbsd$l pet ga then 
8 at, anl$format_error(anirms$_badbktcheck, .6Lbsd$l_vbnJ); 
50 755 ! Check the key ID. 
23 0736 
¢ ore if .spCbkt$b_indexno] negu skey_id then 
3? B728 an $format_error (anirms$_badbktkeyid,.b{bsd$l_vbnJ); 
2 3760 ! Check the bucket address sample. 
57 8708 if .spCbkt$w_adrsample] nequ (.b{bsd$l_vbn] and %x"OO000ffff') then 
38 Bree anl$format_error(anirms$_badbktsample,.b{bsd$l_vbnJ); 
260 0765 ! Check that the next available byte is within reasonable Limits. 
261 0766 '!!TEMP!!! 
$06 0767 
26 0768 if .splbkt$w_freespace] lssu bkt$c_overhdsz or 
264 0769 -splbkt$w_freespace) gtru .blbsd$w_sizeJ*512-1 then 
7 gry anl$format_error(anirms$_badbktfree,.b{bsd$l_vbn]); 
seo 14a ! Check the Level number. 
268 077 
269 0774 if .spCbkt$b_level] nequ .level then 
$f0 $46) 2 anl$format_error(anirms$_badbktlevel,.b(bsd$l_vbn]); 
272 0777 5 : Check the byte of control flags. Make sure we don't get confused by 
44 ore § ! the pointer size. 
275 0780 2 anl$check_flags(.blbsd$l_vbn),.spCbkt$b_bktcb] and %x'e7', ; 
76 ore} : (if .sp(Bkt$b_level] eqlu 0 then data_flags_def else index_flags_def)); 
$78 Ores ! Now split up depending on the type of bucket. 
see $4 $4 § if .spCbkt$b_level] gtru 0 then ( 
282 0787 3 ! This is an index bucket. Check the VBN free space offset. 
283 0788 3 ! If we are accumulet tng Statistics, then call the bucket callback 
spe 1434 ; ! routine, telling it the level, bucket size, and fill amount. 
25 
286 0791 ; if .tpl4,0,16,0] issu. prbi rte, frogs aceJ-1 or 
287 $45 -tpl4,0,16,0) gtre -blbsd$w_size}*512-1 then 
Seo t45, 3 an($forma error (anirms$_badvbnfree,.b{bsd$l_vbn]); 
$90 P 0795 statistics _callback( 
$3! P 0796 en{Sbuchet cat lback(. sedi s86_ level). 
4 P 079 -blosd$w_size], 
$3 P 0798 -b(bsd$w_size]*512 - .tpl4,0,16,0] + .splbkt$w_freespace] - 1); 
94 0799 Hs 
295 0800 3 
296 0801 2) else 
297 0802 2 
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2 ! ALL we need to do for data buckets is call the statistics 
tn 2 ' callback routine with the same information. 
0806 $ statistics. callback 
P 0807 2 anT$bucket_callback(.sp(bkt$b_levelJ, 
P 0808 2 -bl bsd$w_sizel, 
P 0809 $ -spl(bkt$w_freespace] + 1); 


; 


a 
2 
BO 
10 0814 
; OR 
A ee Bh 
14 0818 
yO 


54 4B 42 54 5 
54 4B 42 54 & 
54 4B 42 54 5 
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! If this is not the last bucket in this chain, then let's update the 


! BSD to describe the next one. 
if not “per barey. aod ets 


) else 


1 end; 


atte tei 
return they 


return false; 


SF 56 24 54 4B 
SF 56 24 54 48 
SF 56 26 54 4 


00000000' 


42 0D 
42 OD 
42 0D 
00000001 
00000000" 
00000000 


00000000" 


spbbatst. nxtbkt); 


00000 P 


QOO0E 


00000 INDEX FLAGS DEF: 
ADDRESS P.AAA, P.AAB : 


00004 


Otherwise forget it 


AAA: 
P.AAB: 
OO01C ©. AAC: 


- TITLE 
- IDENT 
»PSECT 


-PSECT 


QO00C DATA_ FLAGS DEF: 
ADDRESS P.AAC : 


00010 


EXTRN 


RMS3IDX RMS3IDX = Analyze Things for Prolog 3 | 
ndexed F 
\V04-000\ 


SPLITS,NOWRT ,NOEXE,2 

<13>\BKTS$V_LASTBKT\ 3 
<13>\BKT$V_ROOTBKT\ r 
<13>\BKT$V_LASTBKT\ : 


SOWNS ,NOEXE ,2 


ANLRMS$_OK, oa -ALLOC 
ANLRMS$_ANYTHING 

ANLRMSS$_ “ae ANLRMS$_BKT 
ANLRMS$_BKTAREA 


A RASS -pete 


ANLRMS$~CELL, ANLRMS$_CELLDATA 
ANLRMS$ CEL f 
LRMSS— 


HE CKHDG 
ANLRM MS$_ CONTIG ANLRMS$_ CREATION 
ANLRMS$~CT tesizé 

ANLRMS$_DATAREC 

ANLRMS$~ =DATABKTVBN 

ANLRMS$_ DUMPHE AD ING 

ANLRMS$~ EOF, ANLRMS$  ERRORCOUNT 
ANLRMS$— ~ERRORNON E 
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-EXTRN ANLRMS$_ERRORS 
EXTRN ANLRMS$-FILEATIR 
AN “FILEHDR 
EXTRN ANLRMSS$— FILELD ANLRMS$_F ILEORG 
| -EXTRN ANL RMS $F 
TEXTRN RMS$— FLAG. ANLRMS$_GLOBALBUF S 
| -EXTRN ANCRMSS~ HEXDATA 
| -EXTRN ANLRMS$_HEXHEADING 
EXTRN ANLRMS$_ “HERMEAD NG2 
EXTRN ANLRMS$_IDXAREA 
EXTRN ANLRMS$— IDXAREAALLOC 
-EXTRN poyat DXAREABKTSZ 


ANLRMS$_EXPIRATION 


oe 
mmmmemn m 
>< >< << OK =< 
~44—-4—4 4 
 * ] 
2 
- 
7 
A 
4 
= 


KUP 
TRN ANLRMS$"NOEXPIRATION 
TRN ANLRMS$_NOSPANF ILLER 
TRN ANLRMS$"PERFORM 
TRN ANLRMS$~PROLOGF LAGS 


SS 
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EXTRN ANLRMGS_ PROLOGVER 
XTRN ANLR mss PROT, ANLRMS$_RECATT 
TRN ANLRMS =RECEAT eANLRMSS_ SECLAIMOKT 


EXTRN AN RMS BADPATH 
EXTRN ANLRMS$~ -BADVEN 
EXTRN ANLRMS$~ DOWN PATH 


TvBK T 
EXTRN ANLRMS$_ “NODATAS ANLRMS$_NODOWN 
EXTRN ANLRMSS_NONEXT, ANLRMSS$_ Ba eat 
-EXTRN ANLRMS$_ =NORECS._ANLRMSS_ NORRV 


ANLAMSS. DOWNHELP 


-EXTRN ANLRMS$_FDLNOALLOC 
-EXTRN ANLRMS$_FDLBESTTRY 
-EXTRN ANLRMS$_FDLBUCKETSIZE 
-EXTRN ANLRMS$_ ster Tt ial 


DLSPAN 
-EXTRN ANLRMSSFDLCC, ANLRMSS_FDLVF CSIZE 
-EXT RMS$_FDLFORMAT, 
ZEXTRN AML Anes tie 


LINDEXFILL 
TRN ANLRMSS_FDLLIINDEXAREA 
TRN ANLRMS$_FDLKE YNAME 
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ANLRMS$_ Shean Lad 
ANLRMS$_FDLNULLKEY 
ANLRMS$_ =FBLNULL VALUE 
ANLRMS$_FDLPROLOG 


ANLRMS$_FDLANALAREA 
ANLRMS$_FDLRECL 
ANLRMS$_F DLANALKEY 
ANLRMS$_ oper patantttiom 


ANLRMSS$_ “torsepme 
ANLRMS$_F 
ANLRMSS$_ ~FDLDUPSPER 


ANLRMSS$_STATRECL 
ANLRMS$_STATKEY 
ANLRMS$_STATDEPTH 
ANLRMS$_STATIDXLIRECS 


COM 
ANLRMS$_STATDATARECS 
ANLRMS$_STATDUPSPER 
ANLRMS$_STATDATALENMEAN 
ANLRMS$_STATDATASPACE 
ANLRMS$_STATDATAF ILL 
ANLRMS$_STATDATAKEYCOMP 
ANLRMS$_STATDATARECCOMP 
ANLRMS$_ oad 44 Ts od 
ANLRMS$_BADAREA1ST2 
ANLRMS$_ ee ates 
ANLRMS$_BADAREAF IT 
ANLRMS$_BADAREAID 


ANLRMS$"BADDATARECBITS 
ANLRMS$_BADDATARECF IT 


742 


RMSSIDX RMS3IDKX = Analyze Things for Prolog 3 Indexed F i$es6 -1984 ' 28: Ax-11 Bliss-32 V4.0-742 P 1 
v02-000 ANLSSBUCKET.MEADER = Print and Check a Bucket H 14-Sep-1986 [89 PANALYZ SRETRAS31DA BSoe1 ~~ < 


-EXTRN ANLRMS$_BADDATARECPS 
EXTRN 


INGBKT 
-EXTRN ANLRMSS_ op dh ee” SPANERROR 
-EXTRN ANLRMS$_TOOMANYRECS 

-EXTRN ANLRMSS$_ “UNWIND, ANLRMSS, VF CTOOSHORT 


CILITY 
eEXTRN ANC S8UCRET CNL SBUCKET CALLBACK 
-EXTRN ANLSCHECK_FLAGS 

.EXTRN ANLSDATA CALLBACK 

-EXTRN ANLSFORMAT_ERROR 

-EXTRN ANLSFORMAT_FLAGS 

~EXTRN ANL SF ORRAT _ “HEX ANL $F ORMAT_LINE 
-EXTRN ANLSFORMAT~SK KIB 

-EXTRN ANLSINDEX CALL 

~EXTRN ANLSRECLATRED BUCKET CALLBACK 
-EXTRN ANLS$GB -RODE ANL$SGL_FAT 

~EXTRN ANLSGU- PROLOG 


-PSECT SCODES,NOWRT,2 


OFFC 00000 .ENTRY ANLS3BUCKET_HEADER, Save R2,R3,R4,R5,R6.R7,-; 0664 
RB,RI,R10,RT1 ; 

0000 MOVAB ANLSGB MODE, R11 : 

000 MOVAB DATA FCAGS_DEF, R10 : 

000C MOVAB ANLSFORMAT“ERROR, R9 : 

0011 MOVAB ANLSFORMAT“LINE, RB : 


Ww 
aoorw 
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y0L-000 ANLS 3BUCKET HEA DER = Point and check a Bucket H 14- ~Sep- 1984 $7:28: § ANALYZ. SRC anes ik BSoeT _ 3 
4 4 AC DO 00016 MOVL THE BSD, <f* : 0667 
a4 C AG DO OOOIA MOVE = -12( Ra), : Oe89 

5 1 AG 0 O01 MOVL 16(R4), Hy F 

5 F Ab ; 00 MOVAB -8(R6). TP : 
0 14 ac ; 0026 BLBS REPORT, 1$ + 0694 

OOED 31 O002A BRw 5 : 
04 AS DD 0002D 18: PUSHL 4(R4) : 0698 

000000006 8F DD 00030 PUSHL #ANLRMS$ BKT : 

1 AC DD 000 PUSHL INDENT_LEVEL : 

03 Dd 0003 PUSHL # : 

68 04 FB 00038 CALLS #4, ANLSFORMAT_LINE : 
7E D4 9003¢ CLRL. sé SP : 0699 

0000G CF 01 FB 0004 CALLS #1 ANLSEORMAT SKIP : 
7E 63 9A 00045 MOVZBL (SP) P) : 0703 

000000006 8F DD 00048 PUSH pan ans: BK T CHECK : 

55 18 AC 01 (C1 ares ADDL #1, INDERT_LEVEL, R5 : 

55 DD 0005 PUSHL 5 : 

7E 04 00055 CLRL -(SP) : 

43 04 FB 00057 CALLS #4, ANL SF ORMAT LINE : 
7E 01 A3 9A 0005A MOVZ7BL 1(SP), -(SP : 0707 

000000006 8F DD 000SE PUSHL #ANLRMSS_ 4 : 

55 DD 00064 PUSHL 5 : 

7E 04 00066 CLRL -(SP) : 

68 04 FB 00068 CALLS a4 pet ee LINE r 
7E 02 A3 3C 00068 MOV2WL 2(5P) : 0711 

000000006 8F DD 0006F PUSHL Sai RASS “OK TSAMPLE : 

55 DD 00075 PUSHL 5 : 

7E 04 00077 CLRL -(SP) : 

68 04 FB 00079 CALLS a4 wart LINE g 
7E 06 As’ 3C 0007C MOV2wL  4(5P), =< : 0715 

000000006 8F DD 00080 PUSHL #ANLRMSS “OK TFREE : 

55 DD 00086 PUSHL R5 : 

7E D4 000 CLRL -(SP 3 

68 04 FB OOOBA CALLS #6 ANt Sf ORMAT LINE : 
7E 06 A3 3C 0008D MOV2WL 6(5P) : 0719 

000000006 8F DD 00091 PUSHL SANE RASS “BK TRECID3 3 

55 DD 00097 PUSHL R5 : 

7E 04 00099 CLRL -(SP) : 

a:) 04 FB 00098 CALLS #4, ANLSFORMAT_LINE : 
08 A3 DD 000% PUSHL 8( 3 0723 

000000006 8F DD 000A PUSHL M#ANLRMS$_BKTNEXT : 

55 DD 000A7 PUSHL R5 ; 

7E 04 000A9 CLRL -(SP) : 

ra:1 06 FB 000aB CALLS #4, ANL SF ORMAT LINE ; 
7E OC A3 9A OOOAE MOVZBL 12(SP), -(SP) : 0727 

000000006 8F DD 000B2 PUSHL #ANLRM&S_ _BKTLEVEL : 

55 DD 00088 PUSHL 5 : 

7E D4 OOOBA CLRL -(SP) 3 

68 04 FB 000BC CALLS #4, ANLSFORMAT_LINE : 
Oc a3 95 O00BF TSTB 12(SP) : 0732 

05 12 000C2 BNEQ 3 

50 6A 9E 00004 MOVAB DATA_FLAGS_DEF, RO : 

06 11 900¢7 BRB 3 

50 f4 AA YE 000C9 3S: MOVAB INDEX _FLAGS_DEF, RO : 

50 DD 000CD 3$: PUSHL ; 
E OD A’ 9A OOOCE MOVZBL ' (SP), =(SP) : 0731 

000000006 8F DD 000D3 PUSHL #ANLRMS$_BKTFLAGS : 


14 
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yo-000 ANC SABUCKE MEASER - Print and Check @ Bucket H 1e-8ep-19 4 $3: 88:98 LANALYZ SRE Rne3\bi BSoe! 
55 DD 00009 PUSHL R 
00006 CF 94 FB 000 CALLS % ANL $F ORMAT_FLAGS 
7 D4 Boe CLRL R7 
oc OA ; i: TSTB 12(SP) 
57 be OO0E uct 
7E OD a3 02 3 EF OO0E9 EXT2vy #3, #2, 13(SP), =(SP) 
6E 2 CO QOOEF ADDL2 , 
00000000G 8F DD bore PUSHL #ANLRMS$_BKTPTRSIZE 
5 DD O00F PUSHL RS 
E D4 OOOFA CLRL -(SP) 
ae 94 FB OOOFC CALLS #4, ANLSFORMAT_LINE 
, E D4 OOOFF 4$ CLAL = (SP) 
0000G CF gi FB 0101 CALLS #1, ANLSFORMAT_SKIP 
11 7 ; 00106 BLBC 
7E 04 A2 3C 00109 MOV2WL  4(TP), =(SP) 
000000006 gf DD 0010D PUSHL #ANLRMS$_BKTVBNFREE 
5 DD 00113 PUSHL 5 
7E D4 0011 CLRL -(SP) 
68 04 FB 00117 CALLS #4, ANLSFORMAT_LINE 
FF AG 63 91 OO1IA 5S: CMPB (SP), <1(R6) 
OC 13 OO11E BEQL 6$ 
06 Ad DD 90120 PUSHL 4(R4) 
000000006 8F DD 00123 PUSHL #ANLRMS$_BADBKTCHECK 
69 02 FB 00129 CALLS #2, ANLSFORMAT_ERROR 
08 ac 01 =aA3 08 00 € 0012¢ 6$: CMPZ2V #0, #8, 1(SP),~KEY_ID 
OC 13 00133 BEQL 7$ 
046 A& DD 00135 PUSHL  4(R4) 
000000006 8F DD 00138 PUSHL #ANLRMS$_BADBKTKEYID 
69 02 FB 0013E CALLS #2, ANLSFORMAT_ERROR 
56 04 A& D0 00141 7S: MOVL 4(R4), RO 
56 02 A3 Bi 00145 CMPW 2(SP), 26 
| 0B 13 00149 BEQL 8$ 
56 DD 00148 PUSHL R6 
000000006 8F DD 00140 PUSHL #ANLRMS$_BADBKTSAMPLE 
69 02 FB 00153 CALLS #2, ANLSFORMAT_ERROR 
55 04 A3 3C 00156 8S: MOV2WL  4(SP), RS 
| 0€ 55 B1 0015A CMPW RS, wi 
OF iF 0015D BLSSU ss «<9$ 
50 02 A& 3C 0015F MOVZWL 2(R4), RO 
| 50 50 09 78 00163 ASHL #9, RO, RO 
50 D7 00167 DECL RO 
50 55 D1 00169 CMPL RS, RO 
0B 18 0016C BLEQU 108 
56 DD 001 6¢ 9$: PUSHL R6 
000000006 8F DD 0017 PUSHL #ANLRMS$_BADBKTFREE 
69 0@ FB 00176 CALLS #2, ANLSFORMAT_ERROR 
57 Oc AS 9A 90179 108: MOVZBL 12(SP), R7 
10 AC 57 D1 0017D CMPL R7?, LEVEL 
0B 13 b0181 BEQL 11 
56 DD 0183 PUSHL R6 
00000000G 8F DD 0018 PUSHL #ANLRM3$_BADBKTLEVEL 
69 9¢ 4 0188 CALLS a. ANLSFORMAT_ERROR 
57 D O18 11$: TSTL R 
0S 12 001 BNEQ 12$ 
50 6A 9E 0192 MOVAB DATA_FLAGS_DEF, RO 
04 11 0019 BRB 13$ 


ES 


50 


50 


5 Routine Size: 


pg by = Ana 
ANL$3BUCKET_H 


7E 
04 A2 
50 
04 A2 
50 


557 bytes, 


ek 


f 
ze Things for Prolog 3 Indexed F 15 
DER = Print and Check a Bucket H 14 
50 F4 «AA YE 00197 
30 D 00198 
38 OD A A 00190 
FFFFFFI8 of CB OO1AI 
DD QO1A9 
00006 CF 9 F 1A 
D 18 
‘3 1 18 
50 FF 86AS 69E 00184 
10 99 +4 0188 
1 F 333 
28 02 A ; pi 
09 1€4 
50 07 001C8 
10 00 ED OO1CA 
0B 18 00100 
56 DD 001D2 
00000000G 8F DD 001D4 
69 02 FB OO1DA 
02 6B 91 001DD 
05 13 OO1E0 
04 68 91 OO1E2 
2D 12 ate 
50 02 A& 3C QO1E7 
50 09 78 OO1EB 
51 04 A2 3C€ OO1EF 
50 51 C2 OO1F3 
FF A540 QF 001F6 
OD 11 QOIFA 
02 6B 91 OOTFC 
05 13 OO1FF 
04 6B 91 00201 
OE 12 00204 
01 AS 9F 00206 
7E 02 A& 3C€ 00209 
57 0D 0020D 
0000G CF 03 FB 3H 
12 OD A3 £8 00214 
06 A 08 A3 DO 00218 
7E 04 00210 
54 DD O0021F 
0000G CF 02 FB 00221 
50 01 DO 00226 
04 ht 
50 D4 0022A 
04 0022C 


Routine Base: 


$CODES + 0000 


~ 19 
eo- 

ep-19 
$ 
$ 


g: 


1 
4 
$ 


se 


14$: 


— 
uw 
wn 


16$: 


17$: 


— 
sooo 
PAM 


20$: 


21$: 


a 49:58:58 


ome Bliss-32_ V4.0-742 
ANALYZ.SRCIRMS3IDX.832;1 


INDEX FLAGS DEF, RO 


1 ($P), RO 

a 2, RO, -(SP) 

’ . ANLSCHECK_FLAGS 
17$ 
-1(R5), RO 

#0 #16, 4(7P), RO 
2(R4), RO 

#9. rb, RO 


#0, #16, 4(TP), RO 
15$ 


R6 

#ANLRMS$_BADVBNF REE 
#2, ANLSFORMAT_ERROR 
ANLS$GB_MODE, #2 


6 
ANLS$GB_MODE, #4 
20 


R1, R 
-1(R5) CROJ 

ANL$GB_MODE, #2 
ANL$GB_MODE, #4 

(R5) 

(4), =<SP) 

; ANE SBUCKET_CALLBACK 
( 


(SP), 21$ 
SP), 4(R4) 
SP) 


Di @o-szwanr—-wr-r— 
on Oo o 
ad wn 


#2, ANLSBUCKET 
#1, RO 


RO 


Pee Se Se Be Se Se Se Be Se Ss Se Bs Be Se Be Be Be Se Be Fe Be Be Se Be Se Be Se Se Se Be Be Be Be Se Se Be Se Se Be Se Se Se Se Be Be 


0785 
0791 


0792 


0793 


0799 


0810 


“we 
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ANLSSRECLAIMED_BUCKET_HEADER = Check & Format R 14-Sep-19 NALYZ.SRCJRMS3IDX.832;1 
18 ; } Rsbeel *ANLSSRECLAIMED_BUCKET_WEADER = Check & Format Reclaimed Bucket’ 
1 4 1 ! Functional Description: 
§ > 3% This routine is called to check and optionally format the header 
$ '} of a reclaimed bucket. These buckets reside on the available 
: : List chained off the area descriptor. 
: os $ 1 | Formal Parameters: 
8 » 3 the_bsd Address of BSD describing bucket. 
8 es) 3! report A boolean, true if we are to format the header. 
9 08 § : indent_level Indentation level for the report. 
1 ; 1 ' Implicit Inputs: 
; 4 5 : global data 
08 $ 1! Implicit Outputs: 
3 ets 4 : } global data 
0840 1 ! Returned Value: 
$s oeet : True if there is another bucket in the chain, false otherwise. 
0 Opes 1! Side Effects: 
1 0844 1! 
* 0845 1 !-- 
seg oac? 
98 Oats global routine ani$3reclaimed_bucket_header(the_bsd,report,indent_level) = begin 
347 0850 bind 
a08 0851 b = .the_bsd: bsd; 
350 0838 
own 
$23 ote control_flags_def: block(2,long] initial ( 
338 0856 uplit byte (Zascic "BKTSV_LASTBKT") 
354 0857 ); 
356 0859 > Local 
oca 
357 0860 sp: ref block(, byte]; 
nn? 
309 086 ! We know the bucket header fits im the bucket. 
368 BRe3 ! Now we can format the header if requested. 
oe sot4 sp = .b{bsd$l_bufptr]; 
i +44 if .report then ( 
re bao, ! Start with a nice header, containing the VBN. 
39 0878 anl$format_lLine(3,.indent_level,anirms$_reclaimbkt,.b{bdsd$l_vbn]); 
3) bare an\$format_skip(0); 
4 +43 ! Format the check character. 
75 0878 an($format_line(0,.indent_level+l,anirms$_bktcheck,.splbkt$b_checkchar]); 
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v04-000 ANLSSRECLAIMED_BUCKET_HEADER = Check & Format R 14-Sep-1984 11:52:59 CANALYZ.SRCIRMS3IDX.832;1 
7 0879 
iH Base ! Format the VBN address sample. 
oP OB, anl$format_line(0,. indent _level+l,anirms$_bktsample,.sp[bktSw_adrsample]); 
4 Bare ! Now the next available record ID. 
it tH] anl$format_Line(0,.indent_level+l,anirms$_bktrecid3,.splbktSw_nxtrecid]); 
5? tty ! Now the next bucket VBN. 
, 0890 anl$format_Line(0,. indent _level+l,anirms$_bktnext,.sp(bkt$l_nxtbkt]); 
34 $2 ! Finally, the flags. 
3} page - anl$format_flags(.indent_level+l,anirms$_bktflags,.sp(bkt$b_bktcb],control_flags_def); 


~~ 
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ances 


2 


3 
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rorornors 


14 
DT LAMM D Bucue  AEAgeR Prolog 3 Indexed F 15-Sep-1984 $7:2$:68 ree Bliss- 


DER - ANAL YZ.SRC 


! Now we are going to check thove items which “§ formatted above. fhe rest 
: of the bucket header (and trailer, if prolog 5) were probably left alone 
! when the bucket was reciaimed, but we don't care. 


heck & Format R 14-Sep- 


! Make sure the check byte is present in the Last byte of the bucket. 


if .spCbkt$b_checkchar] nequ ch$rchar(.blbsd$l pnéose iat) then 
anl$format_error(anirms$_badbktcheck,.B(bsd$l_vbnJ); 


! Check the bucket address sample. 


if .sp(bkt$w_adrsample] nequ (.b{bsd$l_vbn] and %x"O000fTff') then 
an\$format_error(anirms$_badbktsample,.b{bsd$l_vbnJ); 


: We can’t check anything else in the header because we don't know what's 
! left over from the original bucket. 


statistics _callback( 


: If we are accumulating statistics, then we have to call the 
! bucket callback routine so it can tally the bucket. 


anl$reclaimed_bucket_callback(.blbsd$w_size]); 


~n— 
~@ 


RMS31DX.832;1 


~o 


RMSSIDK RMS3IDKX = Analyze Things for Prolog 3 Indexed F 14.46 -1984 23: Ax-11 Bliss-32 v4.0-74 P 
yoL-000 ANC SaR RECLAIMED_BUCKET "READER - Check & Format R R 1a-Sep-1986 7 £38: $8 ANALYZ SRE et - ‘B 
; 619 0 ! If this is not the last bucket in this chain, then Let's update th 

$ : Y 1 i BSD to describe the next one. Otherwise forget ‘t t. . natin 

: 6 4 9 5 if not “per eerie te la tbktd rsptbats 

; «& 0924 -splbkt$l_nxtbkt); 

: 626 33 5 atta tii 

; 625 9 $ return thes 

: : S 89 i ) else ‘ tal 

; return false; 

: 458 0939 7 

; 629 09350 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE,2 
54 4B 42 S54 53 41 4C SF 56 24 54 4B 42 OD OO02A P.AAD: .ASCIZ <13>\BKTSV_LASTBKT\ 3 
-PSECT SOWNS,NOEXE,2 
00000000 00014 CONTROL_FLAGS_DEF: 
00000000* 00018 “hOORESS P.AAD : 


-PSECT SCODES,NOWRT,2 


003c 00000 ENTRY ANLS3RECLAIMED_ BUCKET_HEADER, Save R2.R3.- ; 0848 

55 00006 CF 9E 00002 MOVAB ANLSFORMAT_LINE, RS : 
52 04 AC 00 00007 MOVL ‘THE BSD, ; 0851 
53 OC A2 DO 0000B MOVL 12(R2), SP : 0867 
7%, 08 AC €9 OO000F LBC REPORT. 1$ : 0869 
04 A2 DD 00013 PUSHL  4(R2) : 0873 

000000006 8F DD 00016 PUSHL M#ANLRMS$_RECLAIMBKT : 

OC AC DD 000IC PUSHL  INDENT_LEVEL 3 

03 DD OOOTF PUSHL a 3 

65 04 FB 00021 CALLS #4, ANLSFORMAT_LINE 3 
7E 04 00024 CLRL. = = ( $P : 0874 

00006 CF 01 FB 00026 ALLS #1, ANL SE ORMAT _SKIP ; 
7E 63 9A 000 MOVZBL (SP), -(SP) : 0878 

000000006 8F DD O002E USHL #ANLAMS$ BKTCHECK ; 

54 0c AC 01 C1 Bn8 ADDL #1, INDENT LEVEL, R4 é 

54 DD 00039 PUSHL R4 : 

7E D4 00038 CLRL. = (SP) : 

04 FB 00030 CALLS #4 ANLSFORMAT LINE ; 
7E 02 a3 3C 00040 MOVZWL 2(SP), -(SP) : 0882 

00000000G 8F DD 00044 PUSHL SANLRASS “OK TSAMPLE ; 

54 DD 00064 PUSHL 4 ; 

7E 04 0004C CLRL. = =( SP) : 

65 04 FB OO04E CALLS #4, ANLSFORMAT_LINE $ 
7E 06 A3 3C 00051 MOV2WL 6(5P), = > 0886 

000000006 8F dD 00055 SHL  #ANLRMS$_BKTRECIDS ; 

54 DD 00058 PUSHL R4 : 

7E 04 0005D CLRL. = (SP) : 

65 04 FB 0005F CALLS #4, ANLSFORMAT_LINE s 


~~ 


SS 


RMS31DX 
v04= 


3 Routine Size: 


ANLS 


228 bytes, 


pet tbs = Analyze Thin 
RECLAIMED _BUCKET 


00006 
FF 


00006 
04 


00006 


00006 
04 


00006 


Routine 


REA 


8 A 
000000006 y DD 


4 DD 00068 
E 04 eg 
65 06 FB pe 
0000" CF 9F 000 ¢ 
7E D A3 9A 0007 
00000000G 8F DD OO07A 
4 DD 0008 
CF 04 FB 0008 
50 10 ag DO 00087 1$: 
AO 6 91 00088 
13 0008F 
04 A2 OD 94 
00000000G 8F DD 00094 
CF 02 FB OO09A 
A2 02 <A3 Bi OOO9F 2$: 
OE 13 OO0A4 
04 A2 ODD OO00A6 
00000000G 8F DD O00A9 
CF 02 FB OOOAF 
02 0000G CF 91 000B4 3$ 
07 13 00089 
04 0000G CF 91 00088 
09 12 000C0 
7E 02 A2 3C 000C2 4$ 
CF 01 FB 000C6 
12 OD A3 €E8 O00CB 5$: 
A2 08 A3 DO OOOCF 
7E D4 00004 
52 DD 00006 
CF 02 FB 00008 
50 01 DO 000DD 
04 000E0 
50 D4 O00E1 6% 
04 000E3 
Base: S$CODES + 022D 


for Prolog 3 _Indexe 
DER - Check & Forma 


i- 


90-1984 


5-50 
Sep-1984 


$3: 36:66 AX-11 _ Bliss-32_V4.0-742 


ANALYZ.SRCJRMS3IDX.832;1 
8(SP) 
#ANLRMSS_BKTNEXT 
=(SP) 

#4, ANLSFORMAT_LINE 

CONTROL FLAGS DEF 
(SP) ,~=(SP) 

#ANLRMS$_BKTFLAGS 

#4, ANLSFORMAT_FLAGS 

16(R2), 

(SP), =1(RO) 

2s 

4(R2) 

#ANLRMS$_BADBKTCHECK 


#2, ANLS$FORMAT_ERROR 
¢(SP), 4(R2) 


4(R2) 
#ANLRMS$_BADBKTSAMPLE 
#2, ANLSFORMAT_ERROR 
ANLSGB_MODE., #2 


ANL$GB_MODE, #4 


2(R2), =(SP) 

#1, ANLSRECLAIMED_BUCKET_CALLBACK 
(SP), 4(R2) 

SP) 


zDio-— 
Noa 


#2, ANLSBUCKET 
#1, RO 


RO 


Pe Se Be Se Se Ge Se Se Se Be Se Se Se Se Fe Be Fe Se Se Ge Fe Fe Se Ge Se Se Ge Se Fe Ge Se Se Ge Se Se Se 


0894 


~@ 


Be Se Se Se Se Be Se Se Ge Be Be Ss Oe Se Se Fe Be Se Se Be Ge Ge Se Ge Ge Se Se we FF Ss Ge Ss Ge Se Se Ge Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Se Sees Ge Ge ee ee 
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ANLSSINDEX_RECORD - fornct and Check an Index 8 lense e-j9Re $7 :35:66 


PROPSPIPRIWWIWNIAPINPNYPDNYNINPYNYININYAINININININININIPIN INI a sk kth hd ot tt 


Rsbttl *ANLSSINDEX_RECORD = Format and Check an Index Record’ 


Functional Description: 
This routine is responsible for_formatting and checking the contents 
of an index record (for prolog 3). 


Formal Parameters: 
rec_bsd Address of BSD describing index record. We update it 
to describe the next record. The work lonqword is 
assumed to seec ity the number of the record. 
key_bsd Address of BSD for key descriptor of this index. 
report A boolean, true if we are to format the record. 
indent_level Indentation level for the report. 


global data 


Implicit Outputs: 
global data 


Returned Value: ; . 
True if there is another index record, false otherwise. 


' Side Effects: 


i 
i 
i 
1 

i 
i 
i 
i 
i 
i 
i 
: Implicit Inputs: 
i 
i 
i 
i 
i 
i 
i 
i 
' 
le 
global routine anl$3index_record(rec_bsd,key_bsd,report,indent_level) = begin 
bind 


-rec_bsd: bsd, 
ekey_bsd: bsd; 


ro 


local 
sp: ref block{, byte], 
hp: ref block(,byte], 
kp: ref block({,bytel], 
vp: ref block{, byte], 
key_length: long; 


: We want to ensure that the key portion of the index record fits in the 
! record free space. Begin by calculating the length of the key, which 
! depends on whether or not it’s compressed. 


-bCbsd$l_bufptr); 
-b(bsd$l_bufptr] + .bLbsd$l_offset); 


uw 
o 
nut 


kp = .kCbsd$l"bufptr] + .kCbsd$l“offset); 
key_length = (if .kpCkey$v_idx_compr] then 
: -spl0,0,8,0] + irc$c_keycmpovh 
else 
-kpCkey$b_keysz]); 


! Make sure that the key fits in the record free space. 


ANALYZ.SRCIRMS3IDX.832;1 


ANCE AIWDEX'R t ze Things for Prolog 3 Indexed 4 13-Sep-1984 $7 :28:46 Ax-11 Blis aes v4.0 


-742 
RD = Format and Check an Index 4-Sep-1 ANALYZ.SRCIJRMS3IDX.832;1 
if .b(bsd$l_ offset]+.key_ length gtru_.hplbkt$w_keyfrespc] then ( 
anlSformat errortanirms$_bad3idxkeyfits.btbsd$ vbn)); 
, signal (anTrms$_unwind); 


! Now we have to calculate the address of the corresponding VBN in the 
! VBN List. 


vp = (.b€bsd$l_endptrj-4) = (.blbsd$l_work]+1) * (.npCbkt$v_ptr_szJ+2); 


rom 
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v04- ANLSSINDEX_ RECORD = Format and Check an Index R 14-Sep-1984 11:52:5 ANALYZ.SRCJRMS3IDX.832;1 (10) 


$38 as ! Now we can format the index record, if requested. 

00 999 if .report then ( 

01 000 he ;, 

oe 1304 ! Begin witn a nice heading. 

04 1998 anl$format_l:ne(3,.indent_level,anirms$_idxrec,.b{bsd$l_vbnJ,.bl(bsd$l_offset]); 
05 1004 anl$format_s«ip(0); 

506 1005 

507 1p08 ! Now the vBN. 

508 100 7 

509 1008 anl$format_Line(0,. indent level+1,anirms$_idxrecptr, .hp(bkt$v_ptr_szJ+2, 
510 1009 4 (case “hot bk rSy ptr sz] ffom 0 to 2 of set 
511 1010 4 J: “voto .0. 6,0); 

2ig 1011 4 d: -vpl0,0,24,0]; 

51 Ha 4 (2): -vpl0,0,32,0); 

514 1015 3 tes)); 

515 1014 ; 

516 1015 ! And the key itself, in hex. 

517 1016 3 

518 1017 3 anl$format_line(0,.indent_level+1,anlrms$_idxkeybytes); 
519 1018 3 

520 1019 4 begin 

521 1020 4 local ; 

522 1021 4 key_dsc: descriptor; 

523 1022 4 

524 1023 4 build_descriptor(key_dsc,.key_length,.sp); 

525 1024 4 anl$format_hex(.indent_levei+2,key_dsc); 

526 1025 3 end; 

527 1026 2); 
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ANL$ EX RECORD = Format and Check an Index R 14-Sep-19 NALYZ.SRCJRMS3IDX.B32;1 
; 329 P 1027 statistics_callback( 
; oO P 1028 
‘ee }) P 1029 ! If we are accumulating statistics, then we have to call the 
; 3 ¢ P 1050 ! index record callback routine, telling it the level, nominal 
; ea7 . 103 ! record length, and compressed record length. 
; eie P 10 g an(Sindex_callback(.nhpCbkt$b_level], 
3; 3s P 1034 -kplkey$b_keysz] + .hpCokt$v_ptr_szJ+2, 
; Sor P 1035 ekey_length + .hpCbkt$v_ptr_S2zJ+2); 
; 538 1036 ); 
; 35? 1037 
; 540 1038 : Now we can advance to the next index record. If there isn't another 
; 541 1039 ! one, then just return without modifying the BSD. Otherwise update the 
3 etg ieee ! BSD. Don't forget to increment the record number in the work longword. 
; 544 Ha if tania <r Nye | My et issu .hpCbktSw_keyfrespc] then ( 
; 545 1045 3 b(bsd$l_offset] = .blbsd$l_offset] + .Key_length; 
; 546 1044 3 increment (b{bsd$i_work]); 
3; 5467 1045 3 return true; 
; 548 1046 2) else 
3; 549 1047 2 return false; 
; 550 1048 2 
s. Bl 1049 1 end; 
OFFC 00000 ENTRY wR “> india Save R2,R3,R4,R5,R6,R7,- ; 0959 
Ste 00006 CF 9€ 00002 MOVAB ANLSFORMAT_LINE, R11 : 
5E 08 C2 00007 SUBL2 #8, SP 3 
53 04 AC DO OOODA MOVL REC_BSD, R3 ; 096 
50 08 ac 00 o's MOVL KEY_BSD, RO ; 096 
55 0c a3 DO 0001 MOVL 12(R3), HP 3; 0977 
SA oc (AS 08 a3 C1 00016 ADDL3 8(R3), 12(R3), SP : 0978 
57 Oc Ad 08 aQ C1 O000IC ADDLS 8(RO), 12(R0), KP : 0979 
08 10 a7 03 £1 00022 C #3, 16(KP), 1$ : 0981 
56 6A 9A 0002 MOV7BL (SP), KEY_LENGTH ; 0982 
56 02 CO 0002A ADDL2 #2, KEY_LENGTH 3 
04 11 0002D BRB 3 3 
56 16 A? QA 98 F 1$ MOV7BL 20(KP), KEY_LENGTH ; 0984 
59 56 08 A3 4g. 3 28 ADDL 8(R3), KEY_CENGTH, R9 ; 0988 
59 06 AS 10 00 ED 000 CMP7v #0, #16, 4THP), RO ; 
8 1E 000 BGEQU 3$ : 
04 DD 0004 PUuSHL 4(R3) ; 0989 
000000006 8F DD 0004 PUSHL #ANLRMS$_BADSIDXKEYFIT : 
0000G CF 02 FB 00049 CALLS #2, ANLSFORMAT ERROR ; 
000000006 8F DD O004E PUSHL #ANLRMSS$_UNWIND ; 0990 
000000006 00 01 FB 00054 CALL #1, Lies IGNAL ; 
50 1% =6A3 01 C1 0005B 3$: ADDL #1, 20(R3), RO ; 0996 
54 Op AS Of 03 gf 0060 EXTZ7V #3, #2, 13(HP), RG 3 
02 AS 9E BR886 ROV 2(R4), RB 3 
9 58 C4 Q006A MULL R8, R ; 
52 10 260A 50 C3 00060 SUBL RO, 16(R3), R2 : 
3¢ 04 Cs 0007 SUBL2 #4, VP : 
6 oc ac €9 0007 BLBC =» REPORT, 98 : 0999 
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7E 3 A3 7D 00079 MOva 4(R3), =(SP) : 1003 
00000000G 8F DD if PUSHL BANLRASS IDKMREC : 
10 at DD 0008 PUSHL  INDENT_LEVEL : 
03 0D Bo OBS PUSHL #& j 
6B 5 FB 000 CALLS ANL SF ORMAT_LINE : 
—E 04 00088 LAL (SP) ; 1004 
0000G CF 9} FB 0008D CALLS #1, ANLSFORMAT_SKIP : 
02 0 4 CF 00092 CASEL R4, #C, #2 : 1009 
0012 0008 0006 00096 4$: WOR rt 3 
$-4$° : 
7E 62 3C 44844 5$: MOVZWL (VP), =(SP) : 1010 
09 11 O0009F BER 8 g 
7E 62 18 00 €F OOOA! 6$: EXTZV #0, #24, (VP), =(SP) 3 1011 
02 11 QOOA BSA 8$ 3 
62 DD OO0A8 7$: PUSHL (VP) 3 1012 
58 DD OOOAA 8$: PUSHL R8 : 1008 
00000000G 8F DD OOOAC PUSH #ANLRMS$_IDXRECPTR : 
52 10 AC 01 ¢1 0008 ADDL #1, INDENT_LEVEL, R2 3 
52 DD 0008 PUSHL R2 F 
7E D4 00089 CLAL -(SP) ; 
68 0S FB 00088 CALLS #5, ANLSFORMAT_LINE : 
00000000G 8F DD OO0BE PUSHL #ANLRMSS_ IDXKEVBYTES 3: 1017 
52 DD 000C4 PUSHL R2 8 
43 D4 0006 CLRL -(SP) 3 
6B 03 FB 000C8 CALLS #3, ANLSFORMAT_LINE g 
6E 56 DO 000CB MOVL KEY_LENGTH, KEV_DSC : 1023 
04 AE 5A DO OOOCE MOVL SP, KEY_DSC+4 3 
SE DD 00002 PUSH SP : 1024 
7E 10 AC 02 C1 000D4 ADDL #2, INDENT LEVEL, ts) 3 
0000G CF 02 FB 00009 CALLS #2, ANLSFORMA 3 
02 0000G CF 91 OOODE 9$: CMPB ANC SCR MODE, : 1036 
07 13 OOOE BEQL 10$ 3 
04 0000G CF 91 OO0ES CMPB ANLSGB_MODE, #4 ; 
15 12 QOOEA BNEQ ; 
02 A446 OF OOOEC 108: PUSHAB 2(R4)(KEY_LENGTH] : 
50 A7 9A O000FO MOVZBL (KP), RO 3 
02 A440 9F 000F4 PUSHAB eRe) RO} ; 
7E C AS 9A 000F8 MOVZBL 12(HP), -(SP) 3 
0000G CF 03 FB OOOFC CALLS #3, ANLSINDEX CALLBACK : 
59 04 AS 10 00 ED 00101 11$: CMP27V #0, #16, 4(HPT, : 1042 
0B 18 00107 BLEQU 1 ; 
08 A3 56 CO 00109 ADDL2 KEY Aree, 8(R3) : 1043 
14 Ad dg 00100 INCL 20(R3) 7 1044 
50 01 00 00110 MOVL #i, RO : 1047 
04 00113 RET 3 
50 04 00114 128: CLRAL RO ; 
04 00116 RET ; 1049 


; Routine Size: 279 bytes, Routine Base: $CODE$ + 0311 


$3 


PAA MNMNMNI 
WN "OO OOnNOurw 


ZS. 


DPD PAP PPP SISISASIS 
SF 


Wn Oo OONnNe 


Walvaltalval val eal ab ah ah ab eab Ab-sb ab ab ab eal ab ab al sheet alsa! 
SPOaeaenin~ 


SESSSSPSSSVssey 


Pere rere rere rere rere rere rererere rere ee rele ee eee rere rere rere rere rere re rere eee ee ee ee ee ee ee Pe ee ee Pe 


1§ 
SSIDK = Analyze Things for Prolog 3 Indexed F 18.8 -1984 56:4 Axe-11 iss- -0- 
sUPkimant DATA_RECORS - Format baa theck 2 . 1e-2 08-1986 17:28:88 YANALYZ°gRe eaes\bieseet Pose $f 


23 


1981 } Rsbttl *ANLSSPRIMARY_DATA_RECORD = Format and Check a Primary Data Record’ 
1 : 1! Functional Description: 

1055 1! This routine is responsible for forages tee and Freckong the contents 
1054 1! of a primary data record for prolog 5 indexed files. This does not 
ee : include formatting of the data bytes themselves. 

1987 1 | Formal Parameters: 

i 28 17 rec_bsd Address of BSD describing data record. It is updated 
1059 1! to describe the next record. 

1060 1! key_bsd Address of BSD for key descriptor of this index. 
1061 1! report A boolean, true if we are to print a report. 

1986 : : indent_level The indentation level for the report. 

1064 1 | Implicit Inputs: 

od : } global data 

1069 1! Implicit Outputs: 

1308 : global data 

1070 1 | Returned Value: ; 

+} 1a ' True if there is another record, false otherwise. 

1978 : : Side Effects: 

1075 1 ie 

1978 r 

1077 1 

Hh 24 2 global routine anl$3primary_data_record(rec_bsd,key_bsd,report,indent_level) = begin 
1080 2 bind 

1081 = .rec_bsd: bsd, 

1086 k = .key_bsd: bsd; 

1084 own 

Hs data_flags_def: vestert®, tang! initial 

1087 3 0, 

1088 § 0, 

1089 uplit byte (Zascic ‘IRC$V_DELETED"), 

1090 uplit byte (Zascic ‘IRC$V_RRV') 

1091 uplit byte (Zascic *IRCSV-NOPTRSZ*) 

64 uplit byte (Zascic *IRC$V_RU_DELETE"), 
Ie? velit byte (Zascic "IRCS$SV_RU_UPDATE') 

1095 ; 

1096 local 

1098 rp: ref block(,bytel, 

1099 kp: ref block(,byte), 

1100 overall_dsc: descriptor, 

1101 key_dsc: descriptor, 

1408 data_dsc: descriptor; 

1104 

1105 ! We need to ensure that the data record fits in the used space of the 
1106 ! bucket. Begin by making sure that the first byte fits. 
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1107 
H hp = .b{bsd$i_bufptrd; 
1110 if .b{bsd$l_offset] gequ . antrs$.03 freespace] then 
1111 an(Sformat_error(anirms$ DSddstarectit. scbsdSt. vbn]); 
BBL signal (anTrms$_unwind) ; 
Wwe 5°) 
1115 ! Set up a descriptor of the overall data record, the key, and the data 
111 : 
BY bytes. 
1132 calculate_data_record_info(b,k,overall_dsc,key_dsc,data_ds¢); 
N83 ! Now we can ensure that the entire record fits in the unused space. 
11 ; f .b{bdsd$l_offset]+.overall_dscllen] gre -hp(bkt$w_freespace] then ( 
11 an\Stormat error (ant fms$_ badda arecfit,.blbsd$l_ vbnJ); 
1 : F signal (anTrms$_unwind); 


= 
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! Now we can format the record, if requested. This does not include the 
! actual data bytes. 


erall_dsc(ptrj; 
kCbsd$l"bufptrJ + .kCbsd$l offset); 


if .report then ( 


! Start with a nice heading. 


anl$format <b ine tds: indent. Level,anirms$_idxprimrec,.b{bsd$l_vbn],.b{bsd$l_offset]); 


anl$format_skip( 


! Now the control flags. 


anl$format_flags(.indent_level+1,anirms$_idxprimrecflags,.rplirc$b_control],data_flags_def); 


! Now the record ID. 


38:38 


eal Bi ist =32_ v4.0-742 
ANALYZ.SRC }RMS3ID. B32;1 


anl$format_line(0,.indent_lLevel+l,anirms$_idxprimrecid,.rplirc$w_id]); 
! Now the RRV, both record ID and bucket pointer, if present. 


if not 


! And the key itself, in hex. 


erplirc$yv set incita then 
anl$format 


-rplirc$worrv_id),.rplircSv_ 
(case -rpCircSy. ATM from” 


H fp 
1): “F015:0 0; 
2): -rpl5,0,32, 
tes)); 


if not .rplirc$v_rrv] then ( 
anl$format_line(0,.indent_level+1,anirms$_idxkeybytes); 


; 


snidtoreat” ~hex(.indent_level+2, key_ 


703; 
,0; 


It may not exist. 


dsc); 


ine(O,.indent_level+1,anirms$_idxprimrecrry, 


trsz)+2, 
to 2 of set 


roe 
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165 ! Now we can actually check the tncegr ity of this data record. Most of 
1 ! the checking has been done, since it involved the fit of the record 
1 ! im the bucket. However, we have a few more things to do. 


! Check the control flags. Don't get confused by the pointer size. 

ani S$check_flags(.b{bsd$l_vbn],.rplirc$b_control] and %x'fc',data_flags_def); 
! We don’t check the VFC header size since the record might be compressed. 
if not .rplirc$v_rrv] and not .rplirc$v_deleted] then statistics_callback( 


! If we are accumulating statistics, then we need to call the 
! statistics callback routine for data records. It wants the 
! nominal record length, compressed key length, and compressed 
! data length. 


local 
sp: ref plockt .byte2. 
nominal_length: Long; 


! If the data is compressed, we have to determine its nominal 
! Length by scanning it. The data record is composed of triplets 
! of the form (fragment-lLength, fragment ,compression=-count). 


if .kplkey$v_rec_compr] then ( 
sp = .data_dsc(ptrJ; 
nominal_length = 0; 


while .sp lssa .data_dsc(ptrJ+.data_dsc[len] do ( 
ee ee h = .nominal_length + .spl0,0,16,0); 
+ 2.8 : 


ODNO NE WN 0 OD NAVE WP 0 OOWVOUEWN OO 


1 $ sp = .sp pC0,0,16,07 
3 nominal_length = -nominal_length + .spl0,0.8,0); 
1 § increment (sp); 
19 ); 
2 : 2 ); 
202 3 oni Sdata_cal Lback(.kpChey$e_keysz) + , 
20 if -hgtsoyin,£essanerd then .nominal_length else .data_dscllen]), 
204 -key_dscClen 
205 .data_dscllen], 
206 0); 
07 ); 
oS 
! Now we want to advance to the next data record. If there is room in. 
19 ! the bucket for another, then update the BSD. Otherwise don't touch it. 
\¢ if obCbsd6i of feet }*.oyeralt dscClen] Issu .hpCbkt$w treespece) then ( 
1 b(bsd$i_offset) = .bfbsd$l_offset] + .overalT_dscllen); 
14 return true; 
15 ) els 
1 return false; 
1 
18 end; 
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-PSECT SPLITS,NOWRT ,NOEXE,2 


54 45 6C 65 66 SF 56 26 & 49 9 0038 P.AAE: .ASCII <13>\IRC$V_DELETED\ : 
| 52 52 SF 56 26 & 49 O046 P-AAE ASCII <9>\IRCSV_RRV\ : 
52 54 oF $§ F 56 26 & 49 OD $8 P.AAG: .ASCII <1 S\IRCSU_NO NOPTRSZ\ : 
45 466 SF 55 § 6 26 & 43 iF 3 P.AAH: .ASCII <15>\IRCS$SVIRU_DELETE\ j 
SO 55 SF 5S 52 SF 56 26 43 52 49 Of 00 E P.AAL: ASCII <15>\IRC$SV_RU_UPDATE\ : 
-PSECT SOWNS,NOEXE,2 
00000000 00000000 00000006 0001C DATA -FLAGS DEF: , 
00000000" 00000000* 00000000* 00000000* 00000000' 00028 “ADDRESS 3 Rie’ P.AAF, P.AAG, P.AAH, P.AAI : 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 SENTRY ANL S3PRIMARY BATA RECORD, Save R2.R3.R4.R5.-; 1078 
5B 000000006 8F p00 00002 MOVL #ANLRMS$ BADDATARECFIT, R11 : 
SA CF 9E 00009 MOVAB ANL ORM LINE, R10 : 
59 000000006 00 9€ 0000 MOVAB LIBSSIGNAL; RO : 
58 000000006 8F DO 0001 MOVL  #ANLRMSS_ UM IND . RB : 
3E 18 C2 0001C SUBL2 #24, SP ; 
5 04 AC 7D OOO1F MOVO ~— REC BSD. R3 > 1081 
be, OC Ad 00 00023 MOVL 1gcR ), HP : 1108 
a3 06 Ab 10 00 ED 00027 CMP72V #0, #16, 4(HP), 8(R3) + 1110 
OF 1A 000¢¢ BGTRU : : 
04 A3 DD 000 : PUSHL 4(R3) $1111 
5B DD 0003 PUSHL R11 : 
00006 CF 02 FB 00035 CALLS #2, ANLSFORMAT_ERROR : 
58 DD OO03A PUSHL R : 1112 
69 01 FB 0003C CALLS #1, LIBSSIGNAL ; 
5E DD 0003F 1$: PUSHL SP : 1118 
Oc AE 9F 0004 PUSHAB KEY_DSC ; 
18 AE 9F 00044 PUSHAB OVERALL DSC $ 
18 BB 00047 PUSHR #*M<R3,R4> 3 
0000v CF 05 FB 00049 CALLS #5 CALCULATE DATA_RECORD_INFO ; 
57 10 AE 3C 0004E MOV2WL OVERALL DSC, R7 : 1122 
57 08 a3 CO 00052 ADDL2 8 ; 
57 06 Ab 10 00 FD 0056 CMPZ7V #0, deat 4(HP), R7 : 
F Ee 0005¢ BGEQU : 
06 A3 DD 0005E PUSHL  4(R3) + 1123 
58 DD 00061 PUSHL R11 ; 
00006 CF 08 FB 00063 CALLS #2, ANLSFORMAT_ERROR : 
58 DD 00068 =Cv PUSHL Re + 1124 
69 01 FB 0006A CALLS LIBSSIGNAL ; 
52 14 AE DO 0006D 2 MOVL oveR RALL_DSC+4, RP 3 1129 
55 Oc AG 08 a& Ci 00071 ADDL3 = B(R4) TEERA). K + 1130 
03 OC AC €8 00077 BLBS Report. $ : 1132 
0096 1 00078 BRw F 
7 04 AS 7D OOO7E 3$ MOVQ 4(R3), =(SP) : 1136 
000000006 1 8F DD 00082 PUSHL  #ANLRMSS. IDXPRIMREC : 
10 AC DD 00088 PUSHL INDENT_LEVEL 3 
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yOL-O0 ANCSAPRIMART DATALRECORD <Fornot ona encexe’ & ee ieee rat Bes et rere hg Peet rhe ce mead tt + 
3 DD 000 PUSHL 43 ; 
6A FB 000 CALLS #5, ANLSFORMAT_LINE : 
E 04 000 CLAL. =P + 1137 
00006 CF 01 FB 0009 CALLS #1, ANLSFORMAT_SKIP : 
0000" CF 9F 0009 PUSHAB DATA_FLAGS_DEF : 1161 
7E 2 9A 00098 MOVZBL (RP)> <(SPY : 
000000006 8F DD 0009 PUSHL @#ANLAMS$_IDXPRIMRECFLAGS : 
54 10 ac 1 C1 000A4 ADDLS #1, INDERT_LEVEL, R4 : 
4 DD 000A9 PUSHL R4 : 
00006 CF 04 FB 00 CALLS #4, ANLSFORMAT_FLAGS : 
7E =—=s_—s 01s 2s 3:08) MOVZWL 1(RP), -(SP) + 1145 
000000006 gf DD 0084 PUSHL #ANLRMS$_IDXPRIMRECID : 
DD OOOBA PUSHL R4 : 
7E D4 000BC CLRL. ss = ( SP) : 
6A 04 FB OOOBE CALLS #4, ANLSFORMAT_LINE : 
62 04 €0 000C1 BBS #4, (RP), 9 t 1149 
50 62 02 0 EF 000CS ExTZ7v #0, a2, (RP), RO > 1152 
0 00 0 CF OOOCA CASEL RO, #0. #2 : 
0014 000¢ 0006 OOOCE 4$ . WORD -4$,- ; 
6$-4$.- ; 
7$-4$ 3 
7E 05 A2 3C 00004 S$: MOVZWL 5(RP), =(SP) : 1153 
0B 11 00008 BRB : 
7E 0S A2 18 00 EF OOODA 6$: EXTZV #0, #24, S(RP), -(SP) + 1154 
03 11 OO0E BRB : 
05 A2 DD O00E2 7$: PUSHL  5(RP) : 1155 
7E y, 02 00 EF OO0ES 8S: EXTZV #0, #2, (RP), -(SP) + 1151 
6£ 02 CO OOOEA ADDL2 #2, (SP) : 
7E 03 A2 3C OOOED MOVZWL 3(RP), =(SP) : 
000000006 8F DD 000F1 PUSHL #ANLRMS$_IDXPRIMRECRRV : 1150 
54 DD 000F7 PUSHL R4 : 
7E 04 000F9 CLRL. = (SP) : 
6A 06 FB O000FB CALLS #6, ANLSFORMAT_LINE : 
1A 62 03 €0 OOOFE 9S: BBS a3, ), 10$ : 1160 
000000006 8F DD 00102 PUSHL #ANLRMS$_IDXKEYBYTES + 1161 
54 DD 00108 PUSHL R4 : 
ze D4 O010A CLRL. = = (SP) : 
6A 03 FB 0010C CALLS #3, ANLSFORMAT_LINE : 
08 AE 9F 0010F PUSHAB KEY_D : 1162 
7E 10 AC 02 C1 00112 ADDL3 #2, INDENT_LEVEL, -(SP) : 
00006 CF 02 FB 0011 CALLS #2, ANLSFORMAT_HEX : 
0000" CF 9F OO11C 10$:  PUSHAB DATA_FLAGS_DEF : 1171 
50 62 9A 00120 MOVZBL ( R : 
7€ SO FFFFFFO3 8F (CB 01 3 BICL3 #-25%, RO, -(SP) : 
04 A3 DD 00128 PUSHL 4 : 
00006 CF 03 FB 001 CALLS a3. ANLSCHECK_FLAGS : 
58 62 03 £0 001 BBS #3. (RP), 15$ : 1175 
57 6 02 EO 001 BBS #2: (RP). 15$ : 
02 00006 CF 91 001 CMPB ss AN $GB__ , : 1207 
07 13 00140 BEQL : 
04 00006 CF 91 142 CMPB  ANLSGB_MODE, #4 : 
49 Ng 14 BNEQ ; 
10 AS 95 00149 118: TSTB 1<KP) : 
25 18 0014¢ BGEQ §=«-:*i138 : 
51 04 AE D0 Ol4E MOVL DATA_DSC+4, SP F 
5 ps 015 CLRL NOMINAL_LENGTH : 
54 6— 3C€ 00154 MOVZWL DATA_DST, R4 3 


i Rel 


ES 


57 


3; Routine Size: 
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Rsbttl *ANLS3FORMAT_DATA_BYTES = Format Actual Primary Record Data Bytes’ 


Functional Description: 
This routine is responsible for gored re actual data bytes 
in a primary record for prolog 3 indexed files. Unlike prolog 2, 
this is a separate routine because it's a bit messy. 


Formal Parameters: : 
indent_level The indentation level for the report. 
rec_bsd BSD describing COMPLETE primary record. 
key_bsd BSD for key descriptor for primary index. 


i 

i 

i 

! 

i 

i 

i 

' 

i 

i 

! Implicit Inputs: 
global data 
! Implicit Outputs: 
global data 
i 

' 

i 

i 

' 
lo 


! Returned Value: 
None 


' Side Effects: 


global routine anl$3format_data_bytes(indent_level,rec_bsd,key_bsd): novalue = begin 


bind 
= .rec_bsd: bsd, 
k = .key_bsd: bsd; 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 local 

2 rp: ref blockC,bytel, 
2 overall_dsc: descriptor, 
2 key_dsc: descriptor, 
$ data_dsc: descriptor; 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
; 
2 


! Set up a pointer to the record. 


rp = .b{bsd$l_bufptr) + .b{bsd$l_offset); 


' Set up descriptors for the overall data record, the key, and the data 
! bytes. We only care about the data bytes. 


calculate_data_record_info(b,k,overall_dsc,key_dsc,data_dsc); 


! If there any data bytes, then format them in hex. Otherwise tell the user 
! there is no data. 


if .data_dscClen] nequ 0 then 
‘ anl$format_hex(.indent_level,data_dsc) 
else 


signal (anirms$_nodata); 


return; 


ter 


RMS31DX 
v04-000 


78 
78 


3; Routine Size: 


15 
RMS3IDK = erelyse Things for Aig oy | 3 Indexed F 18-Sep-19 
u 


ANLS3FORMAT_DATA_BYTES = Format Ac 


1378 i end; 


51 


62 bytes, 


se 18 C2 90002 

50 08 AC 00 90008 

Oc Ad 08 Ad C1 00009 
5E DD O000F 

OC AE 9F 00011 

18 AE 9F 00014 

OC AC DD 00017 

50 DD OOOIA 

0000v CF 05 FB OO0IC 
6€ B85 bons 

0B 13 00023 

SE 0D 00025 

04 AC DD 00027 

90006 CF 02 FB CO02A 
04 goer 

00000000G 8F DD 00030 

000000006 00 01 FB 00036 
04 00030 


Routine Base: 


SCODES + 05D1 


al Primary 14-Sep-1984 


4 23:5 
$i 


$736 AX-11_ Bliss-32_V4.0-742 
25 ANALYZ.SRCJRMS3IDX.832;1 


ANL S3EORMAT DATA_BYTES, Save nothing 
REC BSD, RO 
(RO), {2(R0), RP 
KEY_DSC 
OVERALL_DSC 
KEY_BSD 
CALCULATE _DATA_RECORD_INFO 
fA_DSC 


a5 
DATA 
1$ 


SP 
INDENT LEVEL 
#2, ANCSFORMAT_HEX 


#ANLRMS$_NODATA 
#1, LIBSSIGNAL 
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78) 1 Rsbttl "CALCULATE _DATA_RECORD_INFO* 
re ! Description: This routine is called to calculate the lengths of the various 
788 : porsyens of a primary data record: the overall length, the 
789 ; ey length, and the data bytes length. This is a complex 
ry } process, particularly with the advent of recovery units. 
79 ! Parameters: rec _bsd By reference, the BSD for the data record. 
79 : ey. By reference, the BSD for the key. 2 
79% é ; overalt_dsc By reference, a descriptor to be filled in 
795 2 i with a description of the overall record. 
796 2 : key_dsc By reference, a descriptor to be filled in 
797 2 : with a description of the key. , 
798 r4 : data_dsc By reference, a descriptor to be filled in 
He 4 § with a description of the data bytes. 
801 2 ! Returns: Nothing. 
802 2 : 
805 2 ! Notes: 
804 2 feo 
805 2 ; 
806 g GLOBAL ROUTINE calculate_data_record_info(rec_bsd: ref bsd, 
807 key_Bsd: ref bsd, : 
808 3 overall_dsc: ref descriptor, 
809 3 key_dsc: ref descriptor, 
810 3 data_dsc: ref descriptor) : novalue 

3 = BEGIN 

local 


rp: ref block(,bytel, 
kp: ref blockl,bytel, 
sp: ref block(,bytel, 
bits: long; 


! Set up pointers to the primary data record and the key descriptor. 


-rec_bsd(bsd$l_bufptr] + .rec_bsdlbsd$l_offset]; 
-key_bsd[bsd$l_bufptr] + .key_bsdlbsd$l_offset]; 


: The format of a primary data record depends upon the following five things: 
: variable-length record 

‘ key compression enabled 

data compression enabled 
' 
i] 


~ 
o 
“uw 


data bytes have been deleted — 
: record update in a recovery unit ; 
! Set up a 5-bit integer specifying the states of these items. 


bits = {Cant Soi tact fathv ctyog) nequ fat$c_fixed) * 4) + 
(.kp keySv_rer congrd * 23% 
o20p) (gee Secetee 
fpr 


! FILL in the overall descriptor with the address of the record and the 
! Length of the overhead portion. 


a me ed ed od ed wd od oO 


WNNAANNAANAANAANINNNWNW AANA AAAAW 


Be Se Se Se Se Oe Se Se Oe Se Ge Be Se Se Ge Fe Ge Se FH Ge Se Fe Ge Ge Ge Se Ge Se Se Ge oe Ge Ge Se Se FH Se Ge Se Ss Se Se Se Se Se Se Se Se Se FH Se Se Ge Oe SESH as 


WANA AIRIPIPINPININININININDS 4 2 9 2 PH HK FOOOOCOSOOCSOSCSO COO OOOO DOD OWBWDDWDWDDmwWMmnwe~a~ 


PWN OO ODNOA VE WN 0 ODNOU EWN (OO ODNAUEBWN 0 OO NAU FW] C ODN UES Wwh OOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
é 
2 
2 
2 
2 
2 
; 
; 
2 
; 
2 
; 
2 


=O OWN UN EWN 0 OODNOUE WP “OOONOU Sw 


0 00 Cd 0d Cd Gd Od G0 Gd Gd Gd Gd Cd Od Od OD Cd Cd OD On Od Od Od G0 Ge G2 09 CO CD CD CD 
EWAN WNWIAIRIPINININININININIDN 2 3 2 OO Oo 


ee SSL... 
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v04-000 CALCULATE DATA RECORD. INFO ° 12-800-198c 1:5 £88 LANALYZ-SRCIRMS31DK.852¢1 0 (16) 
; 84 1335 
3 84 1 $ everet | mec eret = .rp; 

; 844 1 overall_dscllen] = 1 + 

; 845 1338 2¢ 
£ gee 1339 (if .rplirc$v_noptrsz] then 0 else 
ls 84 1340 4 (case 7 irc$v_ptrsz] from 0 to 3 of set 

; 848 1341 4 0): : 

; 849 1 $s 4 1]: 5; 

; 850 1 4 $3 : 

; 851 1344 5 J: (anl$format_error(anlrms$_baddatarecps,.rec_bsd[bsd$l_vbn]); 
5 S26 1345 4 signal (anlrms$_unwind);); 

; 1346 4 tes) 

; 854 1347 2 ); 

; 855 1348 § : 

3 826 136) 3 ! Set up a pointer to the portion of the record following the overhead. 

: B28 1381 § sp = .rp + .overall_dscLllen]; 

: 860 1383 2 ! Clear the key and data byte descriptors under the assumption that these 

: 30) 132¢ § ! portions of the record do not exist. 

5 He 1356 2 key_dscClen] = data_dsc[len] = 0; 

3; 864 1357 2 

; 865 1358 2! If this record is not an RRV, then we need to analyze the key and data 

: 866 1359 2! portions. Case on the bits we set up to determine the format of these 

3 sor 1360 § ! portions, and fill in the overall, key, and data byte descriptors. 

: 869 1362 2 if not .rplirc$v_rrv] then 

; 870 1363 2 case .bits from 0 to 31 of set 

3; 871 1364 2 

; 872 1365 2 [%b*00000° 

s 87s 1366 3 %b'00001'): (overall dscClen] = .overall_dscClen] + .anl$gl_fatlfat$w_maxrec); 
3; 874 1367 3 key_dscClen] = .kplkey$b_keyszJ; 

s 875 1368 3 key_dsc(ptr] = .sp; 

; 876 1369 3 data_dscllen] = .anl$gl_fatCfat$w_maxrec] - .key_dscLllen]; 
3 44 1379 § data_dsc(ptr] = .sp + .key_dscllenJ;); 

3; 879 1378 3 [%b'00010'): (overall _dscClen] = .overall_dscClen] + .kplkey$b_keysz]; 
; 880 1373 3 key_dsc(Ten] = .kplkey$b_keySzJ; 

; «4881 1374 2 key_dsc(ptrJ] = .sp;); 

; 882 1375 2 

3; 883 1376 2 [%b°00100°, 

; 884 1377 2 %b'00110', 

; 885 1378 2 %b*10000', 

; 886 1379 2 %b°10010°, 

; 887 1380 2 %b*10100° t 

; 888 1381 3 %b'10110°5 (overall_dscClen] = .overall_dscClen] + 2+.sp[0,0,16,03; 
; 889 1386 3 key_dsc(len] = .kplkey$b_keysz]; 

: 890 1383 3 key_dsc ptr: = .sp + 2: 

; OFT 1384 3 data_dscLlen] = .spl0,0,16,0] - okey dsct len); 

; 892 1385 2 data_dsc(ptr] = .sp + 2 + .key_dscllén];); 

: 893 1386 § 

3; 894 1387 [%b°00101", 

; 895 1388 %b*10001° : 

> 896 1389 %b'10101°5: = (bind 

; 897 1390 real_length = .sp + .spl0,0,16,0]: word; 

; 898 1391 3 
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v04-000 CALCULATE _DATA_RECORD_INFO 14-Sep-1984 52:5 ANALYZ.SRCIJRMS31D%.832;1 (16) 
; 899 1 3 overall_dsc{len] = .overall — + 2+,.s9[0,0,16,0); 
; 900 139 key_dscllen] = vkpl ke $b_keysz 

; 901 1394 key_dsclptrj] = .sp + . 

3 o08 1395 data -d5<f len} = .real -fength ~ seer rd ns 4 Pi 

; 96 1 96 data_dsc(ptr] = .sp +” -key_dsclTe 

; 906 139 

; 905 1398 [%b"01000", 

; 906 1399 %b°01010', 

: 907 1400 %b‘01100", 

3; 908 1401 2 %b°01110°, 

; 909 106 2 %b°11000', 

; 910 140 %b'11010', 

; 911 1404 %b°11100° 

: g1¢ 1405 %b'11110'4: (overall dscllen] = .overali_dscllen] + aS - $00, .0,16,0); 
; (91 1006 3 key_dsc(Ten] = irc$ec -keycmpovh + .sp(2,6,8,0 

3; 916 1407 3 key_dsc(ptr] = .sp + 

: 915 1408 3 data_dsc ofS = .spl0, “6. 16,0] = .k ey _dscClend; 

; 916 1409 2 data_dsc(ptr] = - +2 + .key_dscllenj;); 

; 917 1410 2 

; 918 1411 2 {%_b°01001", 

; 919 1412 2 %b°01101', 

: 920 1413 ; %b°11001" 

> 921 1414 %b'11101°4: (bind 

3 Pee 1415 3 real_length = .sp + .sp{0.0,16,0]: word; 

> 923 1416 3 

: 926 1417 3 overall dscClen] = -overail_dscClen] + 2+.s0[0,0,16,0); 
: 925 1418 3 key_dscClen] = ircSc _keycmpovh * .spl2,0,8,0); 

: 926 1419 3 key_dsc(ptri = .sp + 2; 

3; ve? 1420 3 data_dsc onl = real ~sengen - ey dscClenj; 

: 928 1421 2 data_dsc(ptr] = .sp + -key_ =. TenJ;); 

: 968 1422 2 

; 930 1423 4 Cinrange, 

s 935 1424 outrange): (anl$format_error(anirms$_baddatarecbits,.rec_bsd[bsd$l_vbn]); 
; 934 1425 2 signal (anlrms$_unwind);); 

; 95 1426 2 tes; 

: 934 1427 2 

3 4 4 re | § ! Ensure that the key and data bytes fit in the overall record. 

: 937 1230 2 if .key Sets sey, Sect tene tru .overall_dsc(ptrJ+.overall_dscllen] o 

> 938 1431 2 ‘dats_dsclptr]+.data dscllen gy -overall_dsc(ptrJ+.overall L-asclien}. then 
3 oz. O38 § anl$format_error(anirms$ adkeydatafit>.rec_ bsd(bsd$i_vbn]); 

3; 941 1434 2 return: 

: 9e¢ 1435 2 

: 94 1436 1 END; 

> INFO#212 L1:1345 


; Null expression appears in value-required context 


OFFC 00000 ENTRY CALCULATE DATA_RECORD_INFO, Save R2,R3,R4,-° 5; 1299 
7,R8,R9-RIO,RIT 
58 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R11 
5a 000000006 8F DO 00009 MOVL § #ANLRMS$_UNWIND, R10 
57 04 AC 00 00010 MOVL REC_BSD, R7 3; 1516 


ee ee eee 
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ited tts CALCULATE _DATA RECORD. NFO . Fae et 9 7:33:88 LANALYZ SRE RMS3IDX.B32;1 . (16) 
58 Oc a? 0 A? ¢1 00016 ADDL3 8(R7), 12(R7), RP : 
50 p AC DO OOOTA VL. «KEY _BSD : 1317 
56 oc Ad AO C1 OOO1E ADDL3 8(RO), {2(RO), KP : 
51 04 00024 CLRL R1 : 1327 
01 0000G ODF 04 00 fB 0026 CMPZ7V «#0, #4, BANLSGL_FAT, #1 : 
be 0020 BEQL 1$ : 
1 06 0000F INCL R1 : 
51 10 C4 00031 18 MULL2 #16, R1 : 
50 10 Ab gi 06 gf 00 EXT2V #6, #1, 16(KP), RO : 1328 
1 6140 7€ 003A MovAa (R4)(RO) t 1327 
50 10 Ab g1 07 EF 0003 EXTZ7V #7, #1. 16(KP), RO : 1329 
1 6140 DE 00044 MOVAL (R1)CR6), : 1308 
50 68 7 02 ef 0048 EXTZv #2, #1, (RP), RO : 1330 
0 6140 3& 00040 MOvAw (RI)CROI, R : 1329 
59 oe Q} 06 EF 00051 EXTZV. #6, #1, (RP), BITS + 1331 
9 50 CO 00056 ADDL2 RO. BITS ; 
55 Cc AC DO 00059 MOVL OVERALL_DSC, R5 : 1336 
eH AS 58 DO 0005D MOVL RP, 4(R5) : 
33 68 04 £0 00061 BBS a4, (RP), 7 : 1339 
52 68 02 00 EF 00065 EXTZvV #0, #2, (RP), R2 ; 1340 
03 00 52 CF OO06A CASEL , #0, : 

0017 0012 000D 0008 O006E 2% . WORD 33-28. : 
5$-2$,- : 
6$-2$ : 

50 04 pO 00076 3$ MOVL #4, RO ; 
1f 11 00079 BRB 8$ ; 
50 05 pO 0007B 4$ MOVL #5, RO : 
1A 11 OO07E BR $ F 
50 06 DO 00080 5$ MOVL #6, RO ; 
1§ 11 00083 BRB ; 
04 A? ODD 00085 6$: PUSHL 4(R7) : 1344 
000000006 8F DD 00088 PUSHL #ANLRMS$_BADDATARECPS : 
0000G CF 02 FB 0008 CALLS #2, ANLSFORMAT_ERROR : 
5A DD 0009 PUSHL 1 + 1345 
3) 01 FB 00095 CALLS #1, LIBSSIGNAL : 
50 D4 00098 7$: CLAL RO + 1340 
t5 50 03 Al OOO9A 8$: ADDW3 #3, RO, (RS) + 1338 
54 65 3C 0009 movzwe (R5), SP > 1351 
54 58 CO 000A1 ADDL2. RP, §P ; 
53 10 AC dO 0004 MOVL KEY_DSC, R3 > 1356 
$2 14 AC 00 000A8 MOVL DATA_DSC, R2 ; 
62 B4 OOOAC CLRW (Re) : 
63 B4 QOOAE CLRW (R3) : 
77 68 03 €0 0008 B3 #3, (RP), 12% ; 136 
1F 0 59 CF 00084 CASEL BITS, #0. #31 : 136 

0040 0075 005 0055 00088 98: <WORD 11$-9$,- : 

0040 86 0099 0086 000C0 11$-9$.- : 

0040 OOAD OOCF OOAD 000C8 13$-9$,- F 

6040 OOAD OOCF OAD 00000 10$-98..- ; 

0040 86 0099 086 90008 15$-9$.- ; 

0040 0086 0099 008 O0E0 16$-9$,- ; 

0040 OOAD OOCF OAD 000E8 15$-9$,- : 

0040 OOAD OOCF OAD 000F 0 b+ Si : 
19$-9$.- ; 
17$-9$.- ; 


16 
RMSSIDK = Analyze Things for Prolog 3 Indexed F 1B-Sep-19 4 23:56: 


4 AX-11 Bliss-32 Vé.0-74 Page 39 
CALCULATE _DATA_RECORD_INFO 14-Sep-1984 11:5 $8 PANALY2 SRE RASS IDK BSoe1 9° 16) 
198-98. - : 
17$-9$,- 3 
19$-9$.- : 
17$-9$.- : 
108-98, - : 
15$-9$,- ; 
193-08°- : 
15$-9$,- 3 
10$-9$.- : 
15$-9$,- : 
198-98. : 
15$-9$,- : 
10$-9$.- : 
17$-9$,- 3 
19$-9$,- : 
7$-9$,- 3 
10$-9$.- : 
17$-9$,- : 
19$-9$.- : 
17$-9$.- : 
10$-9$ 3 
04 A7 DD OOOFB 108 PUSHL  4(R7) + 16246 
000000006 8F DD O000FB PUSHL #ANLRMS$_BADDATARECBITS : 
0000G CF 02 FB 00101 CALLS #2, ANLSFORMAT_ERROR : 
5A 0D 00106 PUSHL R17 + 1425 
ra) 01 FB 00108 CALLS #1, LIBSSIGNAL : 
2F 11 00108 BRB 14$ : 1363 
50 00006 CF pO 0010D 118 MOVL ANLSGL_FAT, RO : 1366 
65 10 AO AO 00112 ADDW2 16(RO)> (R5) : 
63 16 A6 9B 00116 MOVZBW 20(KP), (R3) : 1367 
06 As 54 DO OO11A MOVL SP, 4(R3) : 1368 
62 10 Ad 63 a3 OO11g SUBW3 (R3), 16(RO), (R2) : 1369 
50 63 3C 0012 MOVZWL (R3). RO : 1370 
06 A2 54 50 1 00126 ADDL3 RO, SP, 4(R2) ; 
OF 11 00128 128 BRB 14$ : 1363 
50 16 A6 9A 00120 138 MOVZBL 20(KF), RO : 1372 
65 50 Ad 00131 ADDW2 RO, <R5) ; 
63 16 Ad 9B 001 54 MOVZBW 20(KP), (R3) : 1373 
06 «As 54 dO 00138 MOVL SP, 4(R3) : 1374 
73 11 0013C 148 BRB 22$ > 1363 
50 65 3C 0013E 158 MOVZWL (R5), RO ; 1381 
51 64 3C 00141 MOVZWL (SP), R1 : 
50 51 CO 00144 ADDL R1, RO ; 
65 30 02 Al 00147 ADDW He, RO, (RS) ; 
6 16 A6 9B 00148 MOVZBW 20(KP). (R3) : 1382 
28 11 OO14F BRB 18$ : 138 
51 64 3 00151 16$ MOVZWL (SP), R1 : 1390 
50 65 3¢ 00194 MOVZWL (RS), RO : 1392 
58 02 A140 9€ 00157 MOVAB 2(R1SCROJ, RB ; 
65 58 80 0015¢ OVW RB, (RS) : 
68 14 Ab 9B 0015F MOVZBW 20(KP), (R3) : 1393 
37 11 00163 BRB 20$ 7 1394 
50 65 3 00165 178 MOVZWL (RS), RO > 1405 
51 4 3¢ 00168 MOVZ2WL (SP). R1 ; 
50 1 CO 00168 ADDL R1, RO ; 
65 50 02 Al 00166 ADDW3 #2. RO, (RS) eee 
* 02 AS 98 001 MOV7BW 2(SP), (R3) > 1406 
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RIDRIWWAARIPYNYDNINININYININ NINN NINN INIA INN IAI a th eh th td tt 


peaeee *ANLS3SIDR_RECORD = Print & Check a 
; Functional Description: 


Secondary Data Record’ 


his routine is responsible for shee Bg checking the contents 


of a prologue 
data buckets of secondary indices. 


! Formal Parameters: 


secondary data record 


DR) SIDRs exist in the 


rec_bsd Address of BSD describing the SIDR. 
The BSD is yosetes to describe the next SIDR. 
key_bsd aeeress of BSD dryer bing the key for this index. 


report A boolean, true if 
indent_level 


Implicit Inputs: 
! Implicit Outputs: 
global data 
maeuraes Value: 


we are to format the SIDR. 


Indentation level for the report, if formatted. 


rue if there is another SIDR in the bucket, false if not. 


' 

i 

' 

i 

' 

' 

' 

! 

' 

i 

i 

global data 
i 

' 

i 

i 

i 

' 

¥ Side Effects: 
leo 


global routine anl$3sidr spacer tires “ps9. 
s 


peubets byte, : 
indent_level: long) = begin 


bind 
-rec_bsd: bsd, 
-key_bsd: bsd; 


ro 
“un 


local 
hp: ref block(, byte], 
sp: ref blockl.bytel. 
kp: ref blockl,bytel, 
length: long 
key_ length: Siena. 
p: Bsd, 


sidr_pointers: Long; 


' First we have to ensure that the SIDR record fits in the used space of 


i the bucket. If not, we have a drastic structure error. Begin by ensuring 


! that the length, which is the first word, 
hp = .bCbsd$l_bufptr); 


fits. 


if .blbsd$l gpiisetd +1 gequ ne8 badds freespace] then 


an S$format_errorlanirms 
signal (anTrms$_unwind); 


Daddalareehin. blecasl. _vbn]); 
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1906 1494 ! Now we caiculate the Length of the entire SIDR record. S. s just the 

1 1495 i é-byte i plus the number of bytes specified by the length. While 

130¢ re i we're at it, calculate the Length of the key. 

1008 1498 kp = “bEbsaS apuietrs ¢ + .kCbsd$l_offset); 

100 1499 = bsd$\— -bufptr + iblbsd$i~ ~oftset): 

1008 1500 tength 

1009 1501 “$90, 0,16,0); 

1010 1208 key_length = (if kplkey$y. ¥-f°x-§5 compr ] then 

ION) 150 -spl2 + irc$c_keycmpovh 

1 \¢ 1504 else 

1913 1e83 -kpCkey$b_keysz])); 

Sie 1307 ! Make sure the entire SIDR fits in the used space of the bucket. 

1017 1509 f .b{bsd$i_offset] + .length gtru .holbkt$w_freespace] then 

1018 1510 anl$format_error(anirms$  baddaterestitscbtbedSt. vbn])); 

Sty 1a . * signal (anTrms$_unwind); 


3 
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1513 ! Now we can format the SIDR record fixed portion, if requested. 


if .report then ( 
! Start with a nice header. 
an\$format a saet Te GONE, Lonel AnLeeee, tens FEr, BSE _GOnd BREED 21 Pent?) 


anl$format_skip(0); 
: ALL we have to format is the key. Build a descriptor for it and 
! dump it in hex. 


“> sla al eh tauren tht staan 
egin 
local 

key_dsc: descriptor; 


build _descriptor(key_dsc, .key_length,sp(2,0,0,0]); 
ate takes teenie teatein -key_dsc); 
end; 


RWWA EES S&S EWAN 


Oa a ed ed a 
DPVLUPULV LULU SUSUSVSVSUSUSIESISISISISIISIS 
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1044 1 ! There is nothing more to check about the fixed portion of the SIDR. 
1045 1535 ! If we aren't displaying this record, then we want to check all of 
ng 1 ! the SIDR pointers. 
104 1 
1048 1538 sidr_pointers = 0; 
1049 1539 if not .report then ( 
1050 1540 : : Bay" 
1051 1541 ! Set up a BSD to describe the first SIDR pointer. This includes 
1026 1206 ! setting the work longword to the number of bytes worth of 
105 154 ! pointer existing in the record. 
1054 1544 
1055 1545 init _bsd(p); 
1056 1268 copy pyckes®o.@)5 
1057 154 ot sd$l_offset] = .b{bsd$l_offset] + 2 + .key_length; 
1928 1268 plbsd$l_work] = .spl0,0,16,0] = .key_length; 
1060 1550 ! Now we can Loup through each pointer, checking its integrity, 
198; 133) ! and counting them as we go. 
1968 1388 do increment(sidr_pointers) while anl$3sidr_pointer(p, false); 
1065 1555 anl$bucket(p,-1); 
1066 1228 § ); 
1067 155 
1068 P 1558 2 statistics_callback( 
1069 P 1559 2 , 2 ee 
1070 P 1560 ! If we are accumulating statistics, we want to call the data 
1071 P 1561 i record callback routine and tell it the overall record Length, 
197% P 1208 ! compressed key Length, and compressed data songt? The latter 
107 P 156 ! makes mo sense for SIDRs. We also need to tell it the number 
1074 P 1564 ! of SIDR pointers in this record. 
1075 P 1565 
1076 P 1566 § an($data_callback(. length, 
1077 P 1567 -key_length, 
1078 P 1568 2 o.. ; 
1079 P 1569 2 -Sidr_pointers); 
1080 1570 2); 


~™ 
ez 
“ 
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wn 
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So 4 4 ss ss is 
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33 
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1571 ' Now we want to advance on to the next SIDR in this bucket. if there 
: if ! isn’t room for one, then we're done. Otherwise update the 8SD. 
1574 if .b{bsd$l_offset] + . length lssu .hplbkt$w_freespace] then ( 
1358 blbSd$l_offset) = *Sbsdst of tsetd o> Length; 
1378 return frue; 
157 ) else 
1578 return false; 
1579 
1580 1 end; 
OFFC 00000 ~ENTRY Wi. 5 35100 RECORD. Save R2,R3,R4,R5,R6,R7,- =; 1465 
5E 28 Ce 00008 SUBL2 #40, SP 3 
56 04 AC 00 0000 MOVL  REC_BSD, R6 t 14671 
52 08 AC 00 00009 MOVL KEY BSD, R2 3: 1472 
SA 0C A6 DO 00000 MOVL 12(R6), H 3: 1488 
57 08 <A6 DO 00011 MOVL 8(R6), R7 : 1489 
50 01 A? 9E 00015 MOVAB 1(R7), RO : 
50 04 AA 10 00 €D 00019 CMPZ7V #0, #16, 4(HP), RO : 
1B 1A OOO1F BGTRU 1$ : 
04 A6 DD 00021 PUSHL 4( + 1490 
00000000G 8F DD 00024 PUSHL #ANLRMS$_BADDATARECF IT : 
0000G CF 2 FB 0002A CALLS #2, ANLSFORMAT_ERROR ; 
00000000G 8F ODD Boose PUSHL #ANLRMS$_UNWIN : 1491 
000000006 00 01 FB 00035 CALL #1, LIBSSIGNAL 3 
50 oc ag 08 A2 Ci 0003C 18: ADDL 8(R2), 12(R2), KP : 1498 
59 5 OC Ab C1 00042 ADDL3 12(R6), R7, SP : 1499 
6E 69 3¢ 00047 MOVZ2WL (SP), LENGT + 1500 
6E 02 CO O004A ADDL2 #2, LENGTH : 
09 10 AO 06 £1 0004D BBC #6, 16(KP) : 1502 
58 02 AY YA 00052 MOVZBL 2(SP), KEY_LENGTH : 1503 
58 02 CO 00056 ADDL2 #2, KEY_LEN 5 
04 11 00059 BRB 3$ ; 
58 14 AO 9A 0005B $3: MOVZBL 20(KP), KEY_LENGTH ; 1505 
04 AE 57 6— C1 OOOSF 3$ ADDL LENGTH, R7, 4(SP) : 1809 
06 AE 06 AA 10 00 ED 00064 CMP2V #0, #16, 4(HP), 4(SP) : 
1B 1E& 00068 BGEQU 4$ 3 
04 A6é DD 0006D PUSHL 4(R6) ; 1510 
00000000G 8F dD 00070 PUSHL #ANLRMS$_BADDATARECF IT 3 
0000G CF 02 FB 00076 CALLS #2, ANLSFORMAT_ERROR ® 
00000000G 8F DD 0007B PUSHL #ANLRMS$_UNWIND : 1911 
00000000G 00 01 FB 00081 CALLS #1, LIBSSIGNAL . 
44 Oc AC €E9 00088 4$: BLBC REPORT, 5$ : 1515 
57 DD 0008C PUSHL R7 : 1519 
04 A6é DD OO08E PUSHL 4(R6) ; 
00000000G 8F ODD 00091 PUSHL #ANLRMS$_IDXSIDR F 
10 AC DD 00097 PUSHL  INDENT_LEVEL : 
03 DD OOO9A PUSHL # ; 
0000G CF 05 FB 0009C CALLS a5 ANL $F ORMAT_LINE ; 
7E D4 OOOAI CLRL. 0 = ¢§P) > 1520 
00006 F 01 FB OOO0A3 CALLS #1, ANLSFORMAT SKIP : ; 
00000000G 8F DD O00A8 PUSHL #ANLRMS$_IDXKEVBYTES s 1525 
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7E 10 Ac 1 C1 000A 
4 D4 0008 
0000G CF 9 FB 00085 
08 AE 8 DO OO0BA 
OC AE f3 A9 9E 0008 
0 AE 9F QO00C 
7E 18 AC 02 C1 000C6 
0000G CF 02 FB O00CB 
5B D4 44 5$: 
47 Oc AC €8 000D2 
18 00 6E 00 2C 000D6 
10 AE BR008 
10 AE 65 7D 000DD 
18 AE 08 A6 DO 000E1 
24 =OAE 14 A6 00 OO0E6 
7E D4 OOOEB 
14 AE 9F OOOED 
0000G CF 02 FB OOOFO 
18 AE 02 A847 9E 000FS 
50 69 3C OOOFB 
24 «AE 50 58 C3 OOOFE 
5B 06 00103 6$: 
7E D4 00105 
14 AE 9F 00107 
0000v CF 02 FB QO10A 
F1 50 £8 0010F 
7E 01 CE 00112 
14 AE 9F 00115 
0000G CF 02 FB 00118 
02 0000G CF 91 00110 7$: 
07 13 00122 
04 0000G CF 91 00124 
OE 12 00129 
5B DD 00128 8$: 
7E 04 00120 
58 DD 0012F 
0c AE DD 00131 
0000G CF 04 FB 00134 
046 AE 04 AA 10 00 ED 00139 9$: 
08 1B 00140 
08 A6 6— CO 00142 
50 01 00 00146 
04 00149 
50 D4 0014A 108: 
04 0014C 


3 Routine Size: 


333 bytes, Routine Base: S$CODE$S + O7F1 


28:46 porte Bliss-32_V4.0-742 
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#1, INDENT LEVEL, -(SP) 
#3, ANLSFORMAT_LINE 
KEY_LENGTH, KEY_DSC 
2(R9), KEY_DSC+% 

KEY DSC 

#2,” INDENT_LEVEL, (SP) 
#2, _ANL$FORMAT_HEX 
SIDR_POINTERS 

REPORT, 

#0, (SP), #0, #24, P 
(R6), T 

8(R6), T 

20(R6), T+20 

= (SP) 

#2, ANLSBUCKET 
2(KEY_LENGTH)CR7J, P+8 
(SP),"R 

KEY_LENGTH, RO, P+20 
SIDR_POINTERS 

“ale 

#2, ANL$3SIDR_POINTER 
#1, =(SP) 

P 


#2, ANLSBUCKET 
ANLS$GB_MODE, #2 


8$ 

ANL$GB_MODE, #4 
SIDR_POINTERS 
KEY_LENGTH 

LENGTH 

#4, ANLS$DATA_CALLBACK 
" #16, 4(HP), 4(SP) 
LENGTH, 8(R6) 

#1, RO 


RO 


Page 46 


(20) 


1574 


1575 
1578 


1580 


MVvow 


Formal Parameters: : 
pointer_bsd Address of BSD describing the pointer. The work 
lLongword in the BSD is assumed to contain a count 
of remaining bytes in the SIDR record. | 
report Boolean, true if we are to format the pointer. 
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1093 81 Asbttl "‘ANLS3SSIDR_POINTER = Format & Analyze SIDR Pointer‘ 
094 8 'e¢ 
95 8 Functional Description: 
84 This routine is responsible for formatting and analyzing one of the 
09 85 potters in a SIDR record. There is one pointer for each record 
098 86 aving the secondary aey presses in the SIDR header. This code is 
099 tf for prologue 3 indexed files. 
89 
90 
4 
35 
94 


indent_level Indentation level for the report. 


! Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: ; , , 
True if there is another SIDR pointer, false otherwise. 


! Side Effects: 


global routine anl$3sidr_pointer(pointer_bsd, 
report: byt 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 yte, ’ 
$ indent_level: long) = begin 
2 bind 

3 p = .pointer_bsd: bsd; 
2 own ome. 
§ pointer_flags_def: vector([9,long] initial ( 
2 
2 
2 
; 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
2 
2 
2 


0, 
0, 
get se byte (Zascic ‘IRC$V_DELETED"), 


WAI WAI RI RIRNINININININID 2 2 2 OO SS S OOOOOCOOCOCO 
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Be Oe Be Be Be Be Se Be Be Se Be Be Be Be Be Be Be Se Se Be Fe Se Se Ge Ge Ge Ge Fe Se Se Ge Ge Se Se Se Fe Se Se Se Ss Se SF Se Se Se Ge Se Se Se Se eeSe Se Se Sseese 
i am a a ka ed ad td at od = = 2 2 2 = = 
ee ee ee ee em ea ed ed od ed 


62 ° 

62 uplit byte (Zascic *IRC$V_NOPTRSZ') , 
HA 6¢ uplit byte (Zascic ‘IRC$V_RU_DELETE"), 
39 62 uplit byte (Zascic "IRCSV_FIRST_KEY*) 
40 62 23 
41 62 
ry | 63 local 
4 63 p: ref block(,bytel, 
44 63 ength: long; 
45 63 
46 63 ’ j 
47 63 ! We know the SIDR record fits in the used space of the bucket, because 
? yt ! that was checked in ANL$3SIDR_RECORD. 
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=z 
tw 
_ 
J 
=< 
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! So we can calculate the overall Length of the pointer. 


= .plbsd$l_bufptr] + .plbsd$l_offset]; 
ength = 1 + 
(if spot cde nopsrss? then 0_else 
(case .pplirc$v_ptrsz] from 0 to 3 of set 


1]: 33 


x 

| 

4 

4 

: 

5 at (anl$format_error(anlrms$_baddatarecps, .plbsd$l_vbn]); 
2 signal (anlrms$_unwind);); 
2 

2 

2 

2 

2 

3 

3 

3 

2 


! Make sure the entire pointer fits in the SIDR record. If not, that's a 
! drastic structure error. 


if .length nr -pCbsd$l_work] then ( ‘ 
anl$format_errortanirms$_badsidrptrfit,.plbsd$l_vbn]); 
signal (anTrms$_unwind); 


ANALYZ.SRCIJRMS3IDX.832;1 


RMS3IDX RMS3IDX = Analyze Things for Prolog 3 Indexed F 1B-sep-19 : 3:56:4 AX-11 Bliss-32_ V4.0-742 Page 49 
v04=000 ANLSSSIDR_ POINTER - format & analyte SIDR Point 14-Sep-1984 11:5 £38 ANALYZ—S Rear ms310 X.B32;1 (22) 
: 1138 1659 ! Now we can format the SIDR pointer if requested. 

3: 117 1660 

3 1176 1661 report then ( 

3 1175 166 

; 1176 166 : Format the flags. 

s iv? 1666 3 : , , p 

; 108 ives H anl$format_flags(.indent_level,anirms$_idxsidrptrflags,.pplirc$b_control],pointer_flags_def); 

> 1180 1667 3 ! And the record 1D and bucket VBN, if present. 

mth 1609 f not .pplirc$ trsz) then ( 

: if not .pplirc$v_noptrsz en P 

3; 1183 1670 & oni $torntt Tinetd,. indent Level,anirms$_idxsidrptrref,.ppl1,0,16,03, .pplirc$v_ptrsz]+2, 

: 1184 1671 5 (case polirgsy yapersa, from 0 to 2 of set 

> 1185 1672 § C0): -ppels 

: 1186 167 5 tids Pp 03070); 

; 1188 1675 4&4 tes)); 

; 1189 1676 3 3 

; 1190 1677 2); 


Be Ge Ge Ge Ge Se Se Se Ge Ge ae Qe Go Cees Seer Ge ee 
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v04-000 AN ese SIDR _POINTER = fornet & analyze SIDR Point 14- ~3ep-19 4 1 $7:25585 ANALYZ.S REI mS31D 1DX.B32;1 nett” (23) 
1138 1678 $ ! Now we have to check the record pointer. The only thing to check is 
1ie7 - ne i the control flags. Don't get confused by the pointer size. 
iige be} ‘ anl$check_flags(.plbsd$l_vbn],.pplirc$b_control] and %x'fc',pointer_flags_def); 
1197 1888 ; : Now we want to advance on to the next pointer. Reduce the count of 
1198 1684 remaining bytes. If it a to gett there are no more pointers. 
1199 1685 2! If it doesn't, then update the BSD 
1200 1686 2 
1203 1687 ¢ ot plbsd$l_work] = ‘cos “+ ony - .length; 
1e08 1688 aCbeasi “work) qtru? ( 
120 1689 ; CbSd$l_offset] = ene bsdSt_ offset] + .length; 
1204 1690 Pature rue; 
1205 1691 2) else 
1206 1692 2 return false; 
1207 1693 2 
1208 1694 1 end 
INF O#212 Li: 1648 
Null expression appears in value-required context 
-PSECT S$PLITS,NOWRT,NOEXE,2 
44 45 54 45 4C 45 446 SF 56 24 43 52 49 OD OQOO7E P.AAJ: .ASCII <13>\IRCSV_DELETED\ 3 
SA 53 52 54 50 4F 4E SF 56 26 43 52 49 OD QOO8BC P.AAK: .ASCII <13>\IRC$V-NOPTRSZ\ 3 
54 45 4C 465 44 SF 55 52 SF 56 246 43 52 49 Of Bp ORS P.AAL: .ASCII <15>\IRC$V_ RU_DELETE\ ; 
45 4B SF 54 53 52 49 46 SF 56 24 43 52 49 OF QOOAA P.AAM: ASCII <15>\IRCSV_FIRST_KEY\ : 
59 00089 ; 
-PSECT SOWNS,NOEXE,2 
00000000 00000000 00000007 0003C POINTER -FLAGS. oi ae" P 
00000000" 00048 - ADDRESS cate ; 
00000000 0004C -LON 3 
00000000* 00000000' 00050 “ADDRESS P.AAK, P.AAL 3 
00000000 00058 ~ LON 3 
00000000" 0005C ADDRESS P.AAM 3 
-PSECT S$CODES,NOWRT,2 
OOFC 00000 ENTRY tape POINTER, Save R2,R3,R4,R5,R6,R7 ; 1610 
57 00000000G 00 9€ 00002 MOVAB LIBSSIGNA : 
56 00000000G 8F 00 00009 MOVL PANLRMSS UNWIND, R6 3 
54 04 AC 00 00010 MOVL POINTER_BSD, R 3: 1615 
52 Oc AG 08 AS C1 00014 ADDL3 8(R4), T2(R4), PP > 1640 
33 62 04 €0 QOOIA BBS #4, (P 3 Mb 
55 62 02 00 EF O001E EXTZV #0. #2, (PP), RS > 164 
03 00 55 CF 0002 CASEL RS, #0, 3 
0017 0012 000D 0008 00027 1% . WORD + st : 
4$-1$.- : 
5$-1$ 3 
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53 04 »dO Boos 2$ MOVL #4, R3 : 
1F 11 00032 RB : 
53 05 pO 00034 3$ MOVL #5, R3 3 
1A 11 00037 BRB 3 
53 06 DO 00039 4$ MOVL 6, R3 F 
15 11 0003C BRB 7 : 
04 AG DD OOO3E 5$ PUSHL 4(R4) + 1647 
000000006 8F DD 00041 PUSHL #ANLRMS$_BADDATARECPS : 
0000G CF 02 FB 00047 CALLS #2, ANLS$FORMAT_ERROR : 
56 DD 0004C PUSHL R 3 1648 
67 01 FB O004E CALLS #1, LIBSSIGNAL : 
53 4 90051 $$ CLRL R3 + 1643 
53 D6 00053 7$ INCL LENGTH + 1641 
16 Ab 53 pi 00055 CMPL LENGTH, 20(R4) : 1655 
13 1B 00059 BLEQU 8$ : 
04 AS DD 00058 PUSHL  4(R4) : 1656 
000000006 8F DD O005E PUSHL #ANLRMS$_BADSIDRPTRFIT : 
0000G CF 02 FB 00064 CALLS #2, ANL$FORMAT_ERROR : 
56 DD 00069 PUSHL R : 1657 
67 01 FB 00068 CALLS #1, L1B$S1GNAL : 
55 08 AC €E9 OO06E 8$: BLBC REPORT, 14 + 1661 
0000" CF 9F 00072 PUSHAB POINTER FLAGS _DEF : 1665 
7E 62 9A 00076 MOVZBL (P : 
000000006 8F DD 00079 PUSHL HANLANSS IDXSIDRPTRFLAGS : 
0C AC DD 0007F PUSHL INDENT LEVEL 3 
0000G CF 04 FB 00082 CALLS #4, ANC $FORMAT__ FLAGS 5 
3C 62 04 €0 00087 BBS #4, (PP), 14$ ~ : 1669 
50 62 02 00 EF 00088 EXTZV. #0, #2, (PP), RO : 1671 
02 00 50 CF 00090 CASEL RO, #0, : 
0014 000C 0006 00094 9$: <WORD 10$-9$.- : 
11$-9$,- : 
12$-9$ e 
7E 03 A2 3C OO09A 108: MOVZWL 3(PP), (SP) : 1672 
0B 11 O009E BRB 13$ 3 
7E 03 A2 18 00 EF OOOAO 118: EXTZV #0, #24, 3(PP), -(SP) : 1673 
03 11 OO0A6 BRB 13§ ; 
03 A2 ODD OOOA8 12$: PUSHL 3(PP) : 1674 
7€ 62 02 00 EF OOOAB 13$: EXTZV #0, #2, (PP), -(SP) : 1670 
6E 02 CO 00080 ADDL2 #2, : 
7E 01 A2 3C 00083 MOVZWL 1(PP), 3 
000000006 8F DD 00087 PUSH HANES TDXSIDRPTRREF : 
0c AC DD O00BD PUSHL INDE EL : 
7E D4 000CO0 CLRL 3 
0000G CF 06 FB 900¢¢ CALLS AML Sr oRMAT LINE : 
0000' CF 9F O00C7 14$: PUSHAB Bait FLAGS_ BEF > 1681 
50 62 9A 000CB MOVZBL (PP) : 
7E 50 FFFFFFO3 8F CB OOOCE BICL3 #-258, RRO. -(SP) : 
04 A& DD 00006 PUSHL  4(R4) : 
0000G CF 03 FB 000D9 CALLS #3, ANLSCHECK_FLAGS 3 
4 53 Ce OO0DE SUBL2 LENGTH, 20(R4J : 1687 
08 1 O00E2 BEQL : 1688 
08 Ad 53 CO OO0E4 ADDL2 LENGTH, 8(R4) : 1689 
50 01 00 bO0E8 MOVL #1, RO 3 1692 
04 OO0EB RET ; 
50 D4 OOOEC 158: CLRL RO : 
04 OOOEE RET > 1694 
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FP 
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; Routine Size: 239 bytes, Routine Base: S$CODE$ + 093E 


Oe ee Oe Oe Oe ee ee 


1209 1695 1 
1210 1696 0 end eludom 
eEXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 186 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 96 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2605 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ae (Ne oe ee eee seth it a tags ic. Sa Symbols ---<---- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: (CSYSLIBILIB.L32;1 18619 38 0 1000 00:01.8 


Information: 2 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RMS31DX/OBJ=OBJ$:RMS3IDX MSRC$:RMS3IDX/UPDATE=(ENHS:RMS3IDX) 


; Size: 2605 code + 282 data bytes 
+7 8 


Run Time: H 
Elapsed Time: 02:10.9 
Lines/CPU Min: 2172 
Lexemes/CPU-Min: 20559 
poe Used: 287 pages 
Compilation Complete 
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